Question

Определить делится ли нацело произведение чисел на 3

Answer 1

Var a:longint;
Begin
readln(a);
if a mod 3=0 then writeln('YES') else writeln('NO');
End.