Помогите!!!!Написать программу, которая определяет кратна ли числу А сумма цифр двухзначного числа

Question

Помогите!!!!Написать программу, которая определяет кратна ли числу А сумма цифр двухзначного числа

Экономика

Гость

Ответ(ы) на вопрос:

Гость

var a,a1,a2,a3:integer; begin read(a); - читаем данное число a1:=a mod 10; a2:=a div 10; a3:=a1+a2; if a3 mod = 0 then write('да') else(write('нет'); end.

Accepted Answer

Блин что за муть как сложно,думаю как решить )