Ответы
Ответ дал:
0
Program n_1;
var a, b, S, P:integer;
begin
writeln('Введите стороны прямоугольника a, b через пробел');
readln(a, b);
S:=a*b;
P:=(a+b)*2;
writeln('Площадь прямоугольника равна ', S);
writeln('Периметр прямоугольника равен ', P);
end.
Вас заинтересует
1 год назад
1 год назад
2 года назад
7 лет назад
7 лет назад
8 лет назад