Предмет: Информатика, автор: olgaschool

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

Ответы

Автор ответа: 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.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Похожие вопросы
Предмет: Алгебра, автор: kerimov66