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

Question

Информатика

Ируся

8 февраля, 01:13

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

+1

Ответы (1)

Знаете ответ?

Нора · 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.