то что параметр цикла не в заголовке это не ошибка, но настоятельная рекомендация, а ошибка у вас в том, что вы не выделили память под динамический массив, a:=new integer[n] (или SetLength(a,n)). И, поскольку индексация элементов в динамических массивах начинается с 0, то в цикле For верхняя граница параметра i должна быть на 1 меньше n, то есть For i:=0 to n-1.
30 см, зависит ещё от диагонали монитора!!!
Примечание:
Уравнение окружности имеет вид:
Решение:
Рассмотрим 3 случая:
1) <em>Точка лежит внутри окружности.
</em>Пусть даны координаты точки x и y.
Если их сумма квадратов не превышает квадрата радиуса, т.е.:
3) <em>Точка лежит вне окуржности
</em>Если точка с координатами A(x;y), где сумма квадратов координаты больше квадрата радиуса, то точка лежит вне окружности, т.е.
Программа:
program zadacha_1;
var x,y,r:real;
begin
writeln('Введите координаты точки');
readln(x,y);
writeln('Введите радиус окружности');
readln(r);
if sqr(x)+sqr(y)<sqr(r) then writeln ('Точка внутри окружности')
else if sqr(x)+sqr(y)=sqr(r) then writeln ('Точка на окружности')
else writeln('Точка вне окружности');
end.
Получается что нет . По кругу расписываем все 9 планет Линиями отмечаем маршруты. Получаем связь Земли с Меркурием Плутоном и Венерой ВсЁ других связей нет