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

Помогите составить программу в турбо паскале известны стороны A и B прямоугольника и сторона квадрата C выведите на экран низвание той фигуры площадь которой больше

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

Var
a, b, c: integer;
begin
readln(a, b, c);
if a*b > c*c then
writeln(Прямоугольник)
else
if a*b < c*c then
writeln(Квадрат)
else
writeln(Одинаковые);
end.