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

Question

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

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.