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

Question

Васса

23 октября, 05:11

+1

Ответы (2)

Знаете ответ?

Панюша · 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.