Дано трёхзначное число. верно ли, что сумма цифр - вопрос №6447817 от izmoksi 20.03.2022 14:43

Question

Информатика: Дано трёхзначное число. верно ли, что сумма цифр этого числа будет кратна 3? программа на пскаль

izmoksi · Answer

// PascalABC.NET 3.2, сборка 1338 от 16.11.2016
begin
Writeln(ReadlnString('n=').ToIntegers.Sum mod 3=0)
end.

Выводится True, если верно и False, если нет
Пример
n= 483
True

Замечание
Число может быть не обязательно трехзначным - количество цифр в нем не ограничено!