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

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.

Comments

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

---

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