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

Категория: Basic
2012-02-27 16:45:28

K вводить с клавиатуры

code: #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"

автор: кот Бегемот

Поделиться:

Похожие статьи:

теги: студенты, сумма, qbasic, целое число