Дано трёхзначное число. верно ли, что сумма цифр этого - вопрос №6447817 от Weltrаum 19.07.2022 06:41

Question

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

Weltrаum · Answer

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

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

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