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