Найти длину окружности и площадь круга заданного радиуса R. в качестве значения Pi использовать 3.14

Question

Информатика

Люда

18 августа, 17:10

Найти длину окружности и площадь круга заданного радиуса R. в качестве значения Pi использовать 3.14

+1

Ответы (1)

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

Артурка · Answer 1

Program z13;

var s, l, pi:real;

r:integer;

begin

writeln ('r=') ;

readln (r) ;

pi:=3.14;

s:=pi*sqr (r) ;

l:=2*pi*r;

writeln ('s=', s,' l=', l) ;

readln;

end.