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

Question

Информатика

Эмилиана

8 сентября, 05:18

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

+4

Ответы (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.