Поставьте программу для вычисления периметра прямоугольника

Question

Информатика

Агаверди

14 июля, 12:21

Поставьте программу для вычисления периметра прямоугольника

+3

Ответы (1)

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

Брик · Answer 1

Var p, a, b:integer;

begin

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

readln (a, b) ;

p: = (a+b) * 2;

writeln ('Периметр прямоугольника равен ', p) ;

end.