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

Question

Информатика

Никуля

1 февраля, 19:46

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

+2

Ответы (2)

Знаешь ответ?

Кирилка · 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

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