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

Question

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

Answer 1

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.

Comments

Спасибо!!

---

Пожалуйста!

Answer 2

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