Question

Напишите программу S (площади) и Р (периметра) прямоугольника. Заранее спасибо!

Answer 1

S=a*b
P=2a+2b
если программа-формула

Answer 2

Var a,b,s,p: integer;
Begin
Write ('Введите сторону А: '); read(a);
Write ('Введите сторону B: '); read(b);
s:=a*b;
p:=2*(a+b);
Writeln ('Площадь равна: ',s, '|', 'Периметр равен: ',p);
End.