Опубликовано 22.08.2017 по предмету Информатика от Гость >> <<

Создайте программу на PascalABC, используя if ... then ... else.... Для рачета полупериметра треугольника (a+b+c)/2. Если a<>0 и т.д. и a+b>c и т.д.

Ответ оставил Гость

Var a,b,c:real;
begin
  readln(a,b,c);
  if (a<>0) and (a+b>c) then writeln ((a+b+c)/2)
     else
         writeln(Неверные входные значения);
end.