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

149

423

Посмотреть ответы 2

Ответы на вопрос:

sobkevichbozhep08t40

Информатика

4,7(41 оценок)

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.