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

Question

Информатика

Ашанти

20 ноября, 19:24

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

+4

Ответы (1)

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

Клаарика · Answer 1

Var p, a, b:integer;

begin

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

readln (a, b) ;

p: = (a+b) * 2;

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

end.