Begin 3 даны стороны прямоугольника a и b найти его площадь s =ab и периметр P=2(ab)
Begin 3 даны стороны прямоугольника a и b найти его площадь s =ab и периметр P=2(ab)
Ответ(ы) на вопрос:
Гость
var
a, b, s, p: integer;
begin
read(a, b);
s := a*b;
p := 2 * (a+b);
println('Периметр: ');
println(p);
println('Площадь: ');
print(s);
end.
Не нашли ответ?
Похожие вопросы