PASCAL (FOR)

[RUSSTUDENT]

Вычислить количество точек с целочисленными координатами, попадающих в круг с радиуса R с центром в точке (0;0). Вывести на экран координаты этих точек

[megachuhancer]

for i := 1 to n do
   if sqrt(sqr(x[i]) + sqr(y[i])) <= r then
      writeln(x[i], ' ', y[i]);

[IT-man]

 for х:= -r to r do
 for y:= -r to r do
    if sqrt(sqr(x) + sqr(y)) <= r then
       writeln(x, ' ', y);

Так точнее будет

[megachuhancer]

Да, точно. Имелись в виду все точки с целочисленными координатами...

[IT-man]

А если перед всеми r в счетчиках цикла добавить trunc то и с вещественными радиусами можно будет работать