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