Помогите!!Дано трёхзначное число, определить кратна ли сумма его цифер числу а. Число...

Question

Помогите!!
Дано трёхзначное число, определить кратна ли сумма его цифер числу а. Число 123, а=5

Comments

тебе программа нужна? Или конкретный ответ?

---

Программа

Answer 1

Begin
read(n,a);
for i:= 1 to 3 do
begin
summ := summ + n mod 10;
summ := summ div 10;
end;
if summ mod a = 0 then write('кратно') else write('не кратно');
end.

Comments

Спасибо, а можно ещё и конкретный ответ

---

1 + 2 + 3 = 6, 6 mod 5 = 1 (остаток от деления), значит не кратно =)

---

Большое спасибо ещё раз..