Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
dontsovaelizav
09.02.2021 05:43 •
Информатика
Задано натуральное число n. вычислить модуль разности кубов цифр заданного числа. паскаль
Показать ответ
Ответ:
Никk
06.10.2020 10:50
Var
n,c,R:integer;
Begin
Write('n = ');ReadLn(n);
R:=0;
While n > 0 do
Begin
c:=n mod 10;
R:=R-c*c*c;
n:=n div 10
End;
WriteLn('|R| = ',Abs(R));
End.
0,0
(0 оценок)
Популярные вопросы: Информатика
Малия172
01.05.2023 14:41
ответить на вопросы))2. Как дается значение символьной строке?3. Какой принцип расчета длины строкВы знаете?4. Какое значение имеет оператор «+»?5. Как перевести...
danielan2003
09.12.2022 06:09
Создать таблицу согласно образца применив в ячейках C6:N10 условное форматирование таким образом, чтобы числовые данные введенные в эти ячейки не равные нулю отображались...
ilyaokorokov777
19.12.2022 18:01
Неліктен нысандарды біріктіреміз Не себепті суреттерді сақтаймыз...
Babka2002
20.09.2022 16:21
Трассировочная таблица возведения 7 в 5 степень...
8908903
10.10.2021 10:38
Как называется законопослушный пользователь социальной сети,выложивший свои реальные фото. 4 буквы...
gulzanairgalievi
30.05.2022 11:13
Расчитайте какую массу меди можно получить, если 0,5 моль оксида меди(ll) нагревали до окончания реакции в избытке водорода...
Gjjsg
30.05.2022 11:13
Вчем причина смены времен года? в чем причина смены дня и ночь? за какое время земля совершает 1 вокруг своей оси? за какое время обрщ 1 оборот вокруг солнца...
Red4521
30.05.2022 11:13
Словарная работа. вставьте пропущенные буквы, учитывая значение слова. белье полоскать - ребенка поласкать, развивается - флаг развевается, умолять чьи-то достоинства...
archik4
30.05.2022 11:13
Найдите наименьшую площадь квадрата, составленного из прямоугольников со сторонами 8см и 6 см....
epincessg11
30.05.2022 11:13
Алые паруса барышня-крестьянка 1. фио автора 2. название книги 3. главные герои и их краткая характеристика 4. о чем говорится в книге 5. вопросы к книге )❤...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
n,c,R:integer;
Begin
Write('n = ');ReadLn(n);
R:=0;
While n > 0 do
Begin
c:=n mod 10;
R:=R-c*c*c;
n:=n div 10
End;
WriteLn('|R| = ',Abs(R));
End.