Напишите программу S (площади) и Р (периметра) прямоугольника. Заранее спасибо!
Напишите программу S (площади) и Р (периметра) прямоугольника. Заранее спасибо!
Гость
Ответ(ы) на вопрос:
ГостьS=a*b
P=2a+2b
если программа-формула
Гость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.
Не нашли ответ?
Похожие вопросы