Найти все целые числа из промежутка от 100 до 300, у которых сумма делителей равна K- Basic(Бейсик)

INPUT k
FOR 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 = 1
NEXT
IF f = 0 THEN PRINT "takoy summy net"

Leave a Comment