На листочке в клеточку нарисована окружность радиуса R клеток с центром на пересечении двух линий. Необходимо найти количество клеток, по которым проходит окружность (если окружность только касается границы клетки, клетку считать не надо).
Формат входных данных:
Введите число R (R <= 30000).
Формат выходных данных:
Выведите число – искомое количество клеток.
n = 8
R = n ^ 2
otvet = 0
currY = 0
For i = n - 1 To 0 Step -1 'по всем иксам от края к центру
Do While currY ^ 2 + i ^ 2 < R 'поднимаемся вверх пока не выйдем за окружность
otvet = otvet + 1
currY = currY + 1
Loop
currY = currY - 1
Next i
MsgBox otvet * 4