Сканируется цветное изображение размером 17, 78×17, 78 см. Разрешающая сканера — 600×1200 dpi, глубина цвета — 4 бита. Какой информационный объём будет иметь полученный графический файл?

1)Универсальный, но долгий

for i in range(1000000,1500001):

   d=1

   k=0

   while d*d<=i:

       if i%d==0:

           if i//d-d<=110:

               k+=1

           if k==3:

               print(i)

               break

       d+=1

2) Быстрый , но значения для второго цикла необходимо высчитывать вручную

for i in range(1000000,1500001):

   d=1

   k=0

   a=set()

   for j in range(940,1300):

       if i%j==0:

           if i//j-j<=110 and i//j-j>=0:

               a.add(i//j-j)

           if len(a)==3:

               print(i)

               break

Объяснение:

//PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016)
var a,n,i,s:integer;
begin
  write('Число элементов последовательности ');
  readln(n);
  for i:=1 to n do begin
    write(i,' элемент последовательности = ');readln(a);
    if (a mod 2 <>0) then s:=s+a;
  end;
  writeln('Сумма нечетных = ',s);
 end.

Тестовое решение:
Число элементов последовательности 5
1 элемент последовательности = 3
2 элемент последовательности = 2
3 элемент последовательности = 4
4 элемент последовательности = 1
5 элемент последовательности = 5
Сумма нечетных = 9