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

Question

Информатика

Лавиния

15 марта, 03:14

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

+2

Ответы (1)

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

Меркурий · Answer 1

Var a:integer;

begin

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

readln (a) ;

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

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

end.