Создайте программу по решению задачи Определить ,являются ли прямоугольники квадратами
Создайте программу по решению задачи Определить ,являются ли прямоугольники квадратами
Гость
Ответ(ы) на вопрос:
ГостьVar a,b:real;
Begin
Write('Длина = ');ReadLn(a);
Write('Ширина = ');ReadLn(b);
if a=b then Write('Является квадратом')
else WriteLn('Не является квадратом')
End.
Не нашли ответ?
Похожие вопросы