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

Question

Информатика

Маргаритка

19 февраля, 03:29

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

+1

Ответы (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.