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

Question

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

Answer 1

Var a:integer;
begin
writeln('Введите двузначное число');
readln(a);
if (a mod 3 =0) then writeln('Сумма цифр кратна 3')
else writeln('Сумма цифр не кратна 3');
end.

Comments

А зачем мне сумму считать,если числа,у которых сумма цифр кратна 3,делятся на 3?)