Question

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

Answer 1

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