Дано  трёхзначное число. Определить,кратна ли трём сумма кубов его цифр. — Правильный ответ на вопрос найдете ниже

Ответ: но как мы узнали кратно трём или нет??

Ответ: по остатку от деления смотрим

Ответ: var n, s: integer;begin  readln(n);  n := abs(n);  while n <> 0 do begin    s := s + Trunc(Power(n mod 10, 3));    n := n div 10;  end;  writeln(s mod 3 = 0);end.