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

Question

Информатика

Эвелина

31 января, 15:47

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

+3

Ответы (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.