Ответы
Ответ дал:
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.
Похожие вопросы
2 года назад
2 года назад
7 лет назад
10 лет назад
10 лет назад