Ответ(ы) на вопрос:
program prog;
uses crt;
var
s,r: real;
begin
Write('Радиус круга = ');
readln(r);
s:=pi*sqr(r);
writeln('S = ',s:0:3);
end.
Не нашли ответ?
Похожие вопросы