Автор | Сообщение |
|
Отправлено: 03.05.22 21:37. Заголовок: 25.225.5147
{ Пусть N(k) = 1850000000 + k, где k – натуральное число. Найдите пять наименьших значений k, при которых N(k) имеет нечётное количество различных чётных делителей. В ответе запишите найденные значения k в порядке возрастания, справа от каждого значения запишите число чётных делителей N(k).} ## 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; Ответы получаются почему-то другие: 22792 81 144450 81 266112 27 387778 9 509448 27
|
|
|
Ответов - 1
[только новые]
|
|
|
| Администратор
|
Сообщение: 3514
|
|
Отправлено: 03.05.22 22:00. Заголовок: Спасибо, вы правы. П..
Спасибо, вы правы. Поправил ответы.
|
|
|