Напишите программу на языке Паскаль для решения - вопрос №12908219 от Заря101 28.12.2020 12:47

Question

Информатика: Напишите программу на языке Паскаль для решения следующей задачи: Дан квадрат со стороной a и равносторонний треугольник со стороной b. Чей периметр меньше?

Заря101 · Answer

var a, b: integer;

begin

readln(a, b);

a:= a*4;

b:=b*3;

if a > b then writeln('Периметр квадрата больше')

else writeln('Периметр треугольника больше');

end.