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

Question

Информатика

Кононыч

13 февраля, 23:02

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.