Форум » Обработка целых чисел » 25.225.5147 » Ответить
25.225.5147
ivackov.sergey: { Пусть N(k) = 1850000000 + k, где k – натуральное число. Найдите пять наименьших значений k, при которых N(k) имеет нечётное количество различных чётных делителей. В ответе запишите найденные значения k в порядке возрастания, справа от каждого значения запишите число чётных делителей N(k).} [pre2] ## uses school; var a:=1850000000; var x:=5; var k:=1; while x<>0 do begin var L:=Divisors(a+k); var c:=L.Where(x->x.Divs(2)).Count; if not c.Divs(2) then begin println(k,c); x-=1; end; k+=1; end; [/pre2] Ответы получаются почему-то другие: 22792 81 144450 81 266112 27 387778 9 509448 27
Ответов - 1
Поляков: Спасибо, вы правы. Поправил ответы.
полная версия страницы