Составить программу вычисление площади круга.
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.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
