Var A,B,i : Integer;
Begin
Readln(A,B);
For i:=A to B do Writeln(Sqr(i));
end.
Делаем переменную count — счётчик
Для наивной реализации, можно проверить что число лежит в диапазоне [0o10; 0o77] или в десятичной [8; 63]
Потом проверить что a[i] mod 8 > a[i] div 8
Если число соответствует всем условиям, увеличиваем счётчик
Потом выводим значение count
N = int(input("n = "))
for i in range(0,n+1):
print (i)
0 и 0 = 0
0 или 0 = 0
это 1 скобка
1 или 1 = 1
это 2ая скобка
0 и 1 = 0
итог