Дано двузначное число. определить кратна ли трем сумма его цифр

Question

Информатика

Даниил

22 марта, 00:24

Дано двузначное число. определить кратна ли трем сумма его цифр

+3

Ответы (1)

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

Тамара · Answer 1

Var a:integer;

begin

writeln ('Введите двузначное число') ;

readln (a) ;

if (a mod 3 = 0) then writeln ('Сумма цифр кратна 3')

else writeln ('Сумма цифр не кратна 3') ;

end.