Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
nerika2017
15.09.2021 13:37 •
Информатика
Дано натуральное число n. найти среднее арифметическое значение кубов цифр заданного числа
Показать ответ
Ответ:
petrakovatatya
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 оценок)
Популярные вопросы: Информатика
katyamalahova47
21.12.2020 20:35
Вася сосчитал количество цифр на клавиатуре с рисунка, из него вычел количество f (заглавных и строчных) на всех клавишах, умножил полученное число на количество стрелок...
адамиммими1
21.03.2022 00:12
Однокоренное одушевлённое слово к слову спорт, здоровье.?...
GorkiyShokolaD
21.10.2022 13:44
Сканируется цветное изображение размером 35,56*35,56 дюйм. разрешающая сканера — 1200 × 1200 dpi, глубина цвета 24 бита. какой информационный объём будет иметь полученный...
Anyablack11
04.04.2023 21:56
Запиши число 15762 в развёрнутом виде, начиная со старшего разряда.ответ...
EdwardLab
17.08.2021 00:22
Задание на фото, программа на пайтоне...
gfjew56df
30.08.2020 17:59
с функциями, что нужно вбить...
4534567889246400607
10.04.2020 18:30
Определи основание системы счисления числа...
медвежонок41
19.02.2022 04:43
Вкаких народных сказках растение играет важную роль в развитии действия ?...
LyudaDolina
19.02.2022 04:43
Вставьте артикль, где необходимо. 1. he hasn’t got … car. but he’s got … computer. … computer is new. 2. this is … cottage cheese. … cottage cheese is fresh. 3. my … cousin...
kati800713
29.11.2021 05:09
Прочитай стихотворение. спиши поставь знаки препинания. у реки на бережок лег крылатый ветерок нежно гладил травы возле переправы. отогрев на солнце бок, побежал под бугорок...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.