Составьте алгоритм длины окружности, если известен её радиус.

Question

Василька

25 августа, 15:04

+1

Ответы (1)

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

Амелфа · Answer 1

Var c, r:real;

const pi=3.1415;

begin

write ('введите радиус окружности') ;

read (r) ;

c:=2*pi*r;

writeln ('длина окружности равна', c) ;

end.