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

Question

Леонинка

29 июля, 10:16

+1

Ответы (3)

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

Никола · Answer 1

var a, b, P: real;

begin

write

readln (a, b) ;

P:=2 * (a+b) ;

write ('P = ', P) ;

readln;

end.

Арайлым · Answer 2

Арайлым 29 июля, 13:11

0

Рахмет

Софоний · Answer 3

var a, b, P: real;

begin

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

readln (a, b) ;

P:=2 * (a+b) ;

write ('P = ', P) ;

readln;

end.