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

Question

Информатика

Гиворг

3 сентября, 18:02

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

+1

Ответы (1)

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

Аратор · Answer 1

Var p, a, b:integer;

begin

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

readln (a, b);

p: = (a+b) * 2;

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

end.