Напишите программу. Дано натуральное число. Найти сумму его цифр, кратных 7

Question

Информатика

Эрнст

16 апреля, 12:15

Напишите программу. Дано натуральное число. Найти сумму его цифр, кратных 7

+3

Ответы (1)

Знаете ответ?

Филарета · Answer 1

Var i, n, m, sum:integer; d:array[1 ... 20] of integer; beginn: = 34511; repeat i: = i + 1; d[i]: = n mod 10; n: = n div 10; until n = 0; //writeln (d) ; foreach m in d dosum: = sum + m; writeln (sum) ; if sum mod 7 = 0 then write ('сумму его цифр, кратна 7') elsewrite ('сумму его цифр, некратна 7') ; end.