Найти среди чисел то, которое имеет максимальное количество делителей и то, у которого сумма делителей максимальна

@DavidTodriya · Регистрация: 14.11.2011

Студворк — интернет-сервис помощи студентам

Найти среди чисел от 1 до 1000 то , которое имеет максимальное количество делителей и то , у которого
сумма делителей максимальна . ( Написать программу на QBasic через циклические алгоритмы )

@softmob · 15.11.2011, 21:57

PureBasic

FOR i = 1 TO 1000
    k = 0
    sum = 0
    FOR j = 2 TO i - 1
        IF i MOD j = 0 THEN k = k + 1: sum = sum + j
    NEXT
    IF k > max THEN max = k: a = i
    IF sum > maxs THEN maxs = sum: b = i
NEXT
PRINT a, b

@кот Бегемот · 16.11.2011, 01:00

softmob, а разве само число i не является делителем i?

@softmob · 16.11.2011, 07:05

ну если надо с учетом самого числа

PureBasic

FOR i = 1 TO 1000
    k = 0
    sum = i
    FOR j = 2 TO i - 1
        IF i MOD j = 0 THEN k = k + 1: sum = sum + j
    NEXT
    IF k > max THEN max = k: a = i
    IF sum > maxs THEN maxs = sum: b = i
NEXT
PRINT a, b

@DavidTodriya 0 / 0 / 0 Регистрация: 14.11.2011 Сообщений: 10
		1
	Найти среди чисел то, которое имеет максимальное количество делителей и то, у которого сумма делителей максимальна 15.11.2011, 17:14. Показов 2131. Ответов 3 Метки нет (Все метки) Найти среди чисел от 1 до 1000 то , которое имеет максимальное количество делителей и то , у которого сумма делителей максимальна . ( Написать программу на QBasic через циклические алгоритмы ) 0

@кот Бегемот Платежеспособный зверь 8818 / 4245 / 1618 Регистрация: 28.10.2009 Сообщений: 11,386
	16.11.2011, 01:00	3
	softmob, а разве само число i не является делителем i? 0

Опции темы