Если сумма цифр введённого с клавиатуры четырёхзначного - вопрос №90133213 от erisoeun 20.05.2023 03:24

Question

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

erisoeun · Answer

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.

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