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

Question

Информатика

Ян

30 марта, 12:13

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

+3

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