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

Question

Информатика

Доса

21 июня, 12:57

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

+5

Ответы (2)

Знаете ответ на вопрос?

Христоня · Answer 1

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

Татуля · Answer 2

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.