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

Ответы

Ответ дал: alim423434199801
0
Блин что за муть как сложно,думаю как решить )
Ответ дал: kakayraznitsa
0

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.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Похожие вопросы