Question

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

Answer 1

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

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

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