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

Question

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

Answer 1

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.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Answer 2

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