Ответы
Ответ дал:
0
var r,s,p:real;
begin
write('R=');
readln(r);
s:=Pi*sqr(r);
p:=2*Pi*r;
writeln('Площадь: ',s);
writeln('Периметр: ',p)
end.
begin
write('R=');
readln(r);
s:=Pi*sqr(r);
p:=2*Pi*r;
writeln('Площадь: ',s);
writeln('Периметр: ',p)
end.
Вас заинтересует
2 года назад
8 лет назад
8 лет назад
10 лет назад
10 лет назад
10 лет назад