1 2 3 4 5 6 7 8 9 | INPUT kFOR i = 100 TO 300 s = 0 FOR j = 1 TO i IF i MOD j = 0 THEN s = s + j: NEXT IF s = k THEN PRINT i: f = 1NEXTIF f = 0 THEN PRINT "takoy summy net" |
Тестирование выполнено в программе QB64 ( Скачать )