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

Question

Васса

22 января, 17:57

+4

Ответы (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.