Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

 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;