Сумма цифр трехзначного числа кратна 7, само число так же делится на 7. Найти все такие числа (в Паскале)
Сумма цифр трехзначного числа кратна 7, само число так же делится на 7. Найти все такие числа (в Паскале)
Гость
Ответ(ы) на вопрос:
ГостьVar
i:integer;
Begin
Write('Числа, сумма цифр которого делится на 7, и само число делится на 7 ');
for i:= 100 to 999 do
if (((i mod 10 + i div 10 mod 10 + i div 100) mod 7) = 0) and ((i mod 7) = 0) then write(i,' ');
End.
Не нашли ответ?
Похожие вопросы