Дано трёхзначное число. Определить,кратна ли трём сумма кубов его цифр.
Ответы:
15-07-2015 18:29
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.
⭐⭐⭐⭐⭐ Лучший ответ на вопрос «Дано трёхзначное число. Определить,кратна ли трём сумма кубов его цифр.» от пользователя Деня Горобченко в разделе Экономика. Задавайте вопросы и делитесь своими знаниями.
Открой этот вопрос на телефоне - включи камеру и наведи на QR-код!