Напишите программу , которая зачисляет площадь и периметр прямоугольника по длинам двух его сторон
Напишите программу , которая зачисляет площадь и периметр прямоугольника по длинам двух его сторон
Гость
Ответ(ы) на вопрос:
ГостьProgram pr;
uses crt;
Var a, b, p, s:real;
Begin
Writeln('Введите сторону a');
readln(a);
Writeln('Введите сторону b');
readln(b);
s:=a*b;
p:=2*(a+b);
Writeln('Площадь = ', s);
Writeln('Периметр = ', p);
readln;
end.
Не нашли ответ?
Похожие вопросы