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

HeU3BecN0cTb HeU3BecN0cTb    3   18.05.2019 22:40    0

Ответы
PalkaDavalka PalkaDavalka  12.06.2020 03:59
Блин что за муть как сложно,думаю как решить )
ПОКАЗАТЬ ОТВЕТЫ
katyaarbato katyaarbato  12.06.2020 03:59

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.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика