Ответы
Ответ дал:
1
var a,b,s,p : real;
begin
read (a,b);
s:=a*b;
p:=2*(a+b);
write ('S= ', s, ' P= ', p);
end.
begin
read (a,b);
s:=a*b;
p:=2*(a+b);
write ('S= ', s, ' P= ', p);
end.
Вас заинтересует
1 год назад
6 лет назад
9 лет назад
9 лет назад