Составить алгоритм и программу для нахождения периметра и площади прямоугольника.

Question

Емельяныч

23 января, 12:11

+1

Ответы (1)

Знаете ответ на вопрос?

Захарка · Answer 1

Var a, b, p, s:real;

begin

writeln ('Введите размеры') ;

readln (a, b) ;

p: = (a+b) * 2;

s:=a*b;

writeln ('P=', p,' S=', s)

end.