Question

Если сумма цифр введённого с клавиатуры четырёхзначного числа делится на 3 без остатка, то вывести "YES" иначе "NO"

Answer 1

PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var n:=Abs(ReadInteger);
  var s:=0;
  while n>0 do begin
    s+=n mod 10;
    n:=n div 10
    end;
  if s mod 3=0 then Writeln('YES') else Writeln('NO')
end.