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

Ответ:

saaaasss01

02.10.2020 01:52

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.

0,0(0 оценок)

Популярные вопросы: Информатика

arinkachoo

11.10.2022 17:32

Напишите критическое мнение на тему облачные технологии По братский...

gavrikov

18.07.2022 12:56

У Вики, Иры и Светы телефоны разных марок: Apple, Samsung и Honor - и разных цветов: золотистый, серебристый и чёрный. Известно, что у Вики телефон не серебристый, а у Иры не золотистый....

2003mariasMaria

28.10.2021 11:47

1. производится одноканальная (моно) звукозапись с частотой дискретизации 16 кгц и 32-битным разрешением. запись длится 11 минут, ее результаты записываются в файл, сжатие данных...

alisakiseleva2

28.10.2021 11:47

Составить программу в паскале! 9 класс! ! даны вещественные числа х и у, не равные друг другу. меньшее из этих двух чисел заменить половиной их суммы, а большее — их удвоенным произведением....

nikitarin0

28.10.2021 11:47

Составить программу в паскале! 9 класс! ! написать программу, по длинам сторон распознающую среди всех треугольников abc прямоугольные. если таких нет, то вычислить величину угла...

cehrjdfyflz1603

28.10.2020 09:17

РЕШИТЬ ЗАДАЧУ! Дан код с номером 85. Определи, какой это символ: управляющий или изображаемый. 1)управляющий 2)изображаемый...

yulya160

19.02.2022 19:47

11.Установите соответствие.Этапы моделирования на компьютере. 1-этапРазработка компьютерной модели исследуемого объекта2-этапКомпьютерный эксперимент.3-этапПостановка задачи4-этапПостроение...

Битон64

21.05.2020 11:50

Создайте программу в паскале формирования исходного одномерного целочисленного массива случайным образом в файле input.txt. отсортированный исходный массив по возрастанию и по убыванию...

DenGamer11

01.06.2023 14:56

Найдите НАИМЕНЬШЕЕ значение параметра a, при котором график функции g(x) = 5^x, где x Э [-1;2], пересекает график функции y = a...

valuchska

21.10.2021 01:09

В промисловості кисень добувають:зрідженням повітря в умовах низьких температур, а потім подальшим його нагріванням, розподіляють на складові компоненти.розкладанням води (H2O) під...

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку