Question

Напишите код программы, которая будет вычеслять периметр прямоугольника?

Answer 1

var a,b, P: real;

begin

write('Введите длины сторон прямоугольника');

readln(a,b);

P:=2*(a+b);

write('P = ',P);

readln;

end.

Answer 2

var a,b, P: real;

begin

write

readln(a,b);

P:=2*(a+b);

write('P = ',P);

readln;

end.