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

Question

Информатика

Андрея

23 ноября, 05:25

Дано целое число 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.