Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
mfaig
03.06.2020 10:29 •
Информатика
Дано натуральное число n. найти среднее арифметическое значение кубов цифр заданного числа
Показать ответ
Ответ:
котейка52
06.10.2020 10:46
Var
n,c,S,k:integer;
Begin
Write('n = ');ReadLn(n);
k:=0;
S:=0;
While n > 0 do
Begin
c:=n mod 10;
k:=k+1;
S:=S+c*c*c;
n:=n div 10
End;
WriteLn('Sr = ',S/k);
End.
0,0
(0 оценок)
Популярные вопросы: Информатика
msfokkck
25.05.2020 14:59
Перед тобой таблица стоимости перевозок, которая устроена следующим образом: числа, стоящие на пересечениях строк и столбцов таблиц, означают стоимость проезда между соответствующими...
ByGaTiVlAdLeN
29.04.2021 07:48
перечислите различные проводные и беспроводные внешних устройств вывода информации К персональному компьютеру...
GHTU
15.04.2022 16:03
В одной из кодировок Unicode каждый символ кодируется 16 битами. Ваня написал текст (в нём нет лишних пробелов): «Уфа, Азов, Пермь, Белово, Вологда, Камбарка, Соликамск — города России»....
АйданкаТоктогулова
15.07.2021 03:27
Дано дерево целых чисел. Если в дереве хотя бы один нечетный лист, то найти количество кратных 5-ти элементов. Иначе заменить все совершенные элементы на заданное значение (для совершенного...
olgaollik
05.12.2020 16:57
Определите угловой коэффициент и постройте график функции а) f дилить r со значению r ,f (х) = 3х - 4 б) g дилить r со значению r , g (х) = - 1,5х + 2...
lilyarutyunova
05.12.2020 16:57
Ураганный ветер оказывает давление на препятствие в 1100 па какие давление оказывает этот ветер на стену дома с площадью 24 м2...
abroe
05.12.2020 16:57
Задать 5 типов вопросов,к каждому дредложению куда папа собирается с топором? держать себя в руках? покончить с ней? вы имеете в виду убить её? просто потому, что она меньше, чем другие?...
zobitkov
05.12.2020 16:57
Как в определять точно,является ли реакция экзо- или эндотермической? есть ли какой-нибудь точный или возможно лайфхак,не знаю : (...
karbannikita
05.12.2020 16:57
По поверхности стеклянного куба проходит ломаная линия, сделанная из толстой проволоки (рис. 166, а). глядя на куб спереди, сверху и слева, мы видим, как располагается эта проволока,...
чьзклу
05.12.2020 16:57
Какой объём воды требуется для приготовления из 12,5 граммов хлорида натрия раствора с массовой долей соли 0,9%?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
n,c,S,k:integer;
Begin
Write('n = ');ReadLn(n);
k:=0;
S:=0;
While n > 0 do
Begin
c:=n mod 10;
k:=k+1;
S:=S+c*c*c;
n:=n div 10
End;
WriteLn('Sr = ',S/k);
End.