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

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

Задать свой вопрос
Наталья Догман
какой язык программирования?
1 ответ
Var n,s,k:integer; 
begin
write('n='); readln(n);
write('k='); readln(k);
s:=0;
while nlt;gt;0 do begin
 s:=s+n mod 10;
 n:=n div 10;
 end;
writeln('sum = ',s);
if s mod k =0 
 then writeln('Сумма цифр числа кратна ',k)
 else writeln('Сумма цифр числа не кратна ',k);
end.

Пример:
n=123
k=2
sum = 6
Сумма цифр числа кратна 2
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

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

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

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

Войти на сайт