Создайте программу на PascalABC, используя if ... then ... else.... Для рачета полупериметра треугольника (a+b+c)/2. Если a меньше больше 0 и т.д. и a+b больше c и т.д.
Создайте программу на 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.
Не нашли ответ?
Похожие вопросы