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

simkinaalinoschka simkinaalinoschka    3   23.09.2019 13:05    5

Ответы
katyauauauaua katyauauauaua  08.10.2020 12:20
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика