Ответы
Ответ дал:
0
var a,b,p,s:real;
begin
writeln('Введите размеры');
readln(a,b);
p:=(a+b)*2;
s:=a*b;
writeln('P=',p,' S=',s)
end.
begin
writeln('Введите размеры');
readln(a,b);
p:=(a+b)*2;
s:=a*b;
writeln('P=',p,' S=',s)
end.
Похожие вопросы
2 года назад
10 лет назад
10 лет назад
10 лет назад
10 лет назад