Question

Сумма цифр трехзначного числа кратна 7, само число так же делится на 7. Найти все такие числа (в Паскале)

Answer 1

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.