Begin 3 даны стороны прямоугольника a и b найти его площадь s = ab и периметр P=2 (ab)

Question

Информатика

Мишуня

5 июля, 06:34

Begin 3 даны стороны прямоугольника a и b найти его площадь s = ab и периметр P=2 (ab)

+5

Ответы (1)

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

Ратибор · Answer 1

Var

a, b, s, p: integer;

begin

read (a, b) ;

s : = a*b;

p : = 2 * (a+b) ;

println ('Периметр: ') ;

println (p) ;

println ('Площадь: ') ;

print (s) ;

end.