Опубликовано 22.08.2017 по предмету Информатика от Гость >> <<

Сумма цифр трехзначного числа кратна 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.