Дано трёхзначное число. Определить,кратна ли трём сумма кубов его цифр.
Дано трёхзначное число. Определить,кратна ли трём сумма кубов его цифр.
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы