Question

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

Answer 1

program PointsInCircle;
var   R, X, Y, Count: integer;
begin   writeln('Введите радиус круга (R > 0): ');   readln(R);
     Count := 0;
     for X := -R to R do     for Y := -R to R do       if X * X + Y * Y <= R * R then         Count := Count + 1;
     writeln('Количество точек в круге радиусом ', R, ': ', Count);
     readln; end.