Question

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

Answer 1

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.

Answer 2

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

Answer 3

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