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

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

Задать свой вопрос
1 ответ
Program zadacha;varN,s,a : longint;beginwriteln('vvedite chislo: ');readln(n);writeln('vvedite k');readln(a);s := 0;while n lt;gt; 0 dobegins := s + (n mod 10);n := n div 10;end;if (s mod a) = 0 thenwriteln('kratna')elsewriteln('net');end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт