Question

Составьте алгоритм решения задачи: Вычислите длину окружности, предварительно проверив корректность ввода исходных данных(радиуса)

Answer 1

 1)Ввести радиус окружности 
2)Проверит, елси раиду 0 или меньше нуля завершить работу

3)Иначе вычислить длину по формуле 2пиR

 

 

 

 

 

const pi=3,14;

var p,r:real;

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

readln(r);

if (r<0) then writeln('error') else

 

 p:=2*pi*r;

writeln(p);

readln;

end;