Напишите программу на языке Паскаля, определяющую периметр прямоугольника.

Question

Информатика

Эмилий

6 ноября, 20:51

Напишите программу на языке Паскаля, определяющую периметр прямоугольника.

+5

Ответы (1)

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

Агриппич · Answer 1

Var a, b, p: integer;

begin

write ('Длинна: ') ; readln (a) ;

write ('Ширина: ') ; readln (b) ;

p:=2*a+2*b;

write ('Периметр равен: ', p) ;

end.