Дано целое число N. Определите, кратна ли числу К сумма цифр в числе.

Question

Информатика

Алексюша

30 июля, 00:20

Дано целое число N. Определите, кратна ли числу К сумма цифр в числе.

+4

Ответы (1)

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

Идея · Answer 1

Program zadacha; varN, s, a : longint; beginwriteln ('vvedite chislo: ') ; readln (n) ; writeln ('vvedite k') ; readln (a) ; s : = 0; while n 0 dobegins : = s + (n mod 10) ; n : = n div 10; end; if (s mod a) = 0 thenwriteln ('kratna') elsewriteln ('net') ; end.