Сумма цифр трехзначного числа кратна 7, само число так же делится на 7. Найти все такие числа (в Паскале)
Сумма цифр трехзначного числа кратна 7, само число так же делится на 7. Найти все такие числа (в Паскале)
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Интересные статьи из справочника
Поможем написать учебную работу
Отвечай на вопросы, зарабатывай баллы и трать их на призы.
Подробнее
Подробнее
program FindNumbers;
va
i, num, sum, digit1, digit2, digit3: integer;
begi
sum := digit1 + digit2 + digit3for i := 102 to 987 d
begi
digit1 := i div 100
digit2 := (i mod 100) div 10
digit3 := i mod 10;
if (sum mod 7 = 0) and (i mod 7 = 0) the
writeln(i);
end
end.