Составить программу вычисление площади круга.

Question

Информатика

Лавреныч

30 июля, 10:28

Составить программу вычисление площади круга.

+5

Ответы (1)

Знаете ответ на вопрос?

Олегыч · Answer 1

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.