Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
киса2013438
20.08.2022 11:40 •
Информатика
Знайти суму чисел введеного чотирьохзначного числа та їх середнє арифметичне наприклад 2013 = 2+0+1+3 =6середнє арифметичне 6/4=1,5
Показать ответ
Ответ:
ник5024
02.10.2020 00:23
Var
i,n,m,x,k:Integer;
s:String;
Begin
Read(n);
While (n>0) do
begin
m:=(n mod 10);
n:=(n div 10);
x:=x+m;
k:=k+1;
end;
Writeln('Сума : ',x);
Writeln('Середнє арифметичне : ',x/k:0:1);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
olga877
08.02.2021 13:44
кто шарит ! y=(a+b+c)*(a+b) а=1,в=0,с=0 вторая скобка -над буквой а и в чёрточка . и одна общая черта над всем выражением . вообщем ,это информатика(9 класс ) ,тема: логические элементы...
tatianabeklemia
04.06.2023 08:43
Составить алгоритм управления Чертёжником, в результате которого на координатной плоскости будет нарисован квадрат, длина стороны которого равна 5 единицам....
negatiff95
08.01.2023 21:27
В одной из кодировок Unicode каждый символ кодируется 16 битами. Ваня написал текст (в нём нет лишних пробелов): «Лев, тигр, ягуар, гепард, пантера, ягуарунди — кошачьи». Ученик вычеркнул...
АйданкаТоктогулова
16.07.2021 18:30
Напишите программу которая заполняет матрицу размером 7х7 случайными числами, а затем записывает в элементы отмеченные на рисунках серым фоном число 99....
VankaOchevidnost135
24.03.2021 02:24
Напишите сочинение-описание по кадетским погон кш...
котик957
06.06.2023 11:31
Скрестьянской реформой 1861 г. связаны следующие термины а) отрезкиб) чересполосицав) конные дниг) волочная померад) вотчинная коллегияе) круговая порука...
kostrominalekceu
26.02.2020 02:31
Мне составить синквейн на тему украинские и киргизгие инструменты ...
jekainozentsev
22.02.2022 09:18
До поданих дієслів добери протилежні за значенням.( буде гріти, дофарбовує, збудує...
HrenSGori
27.01.2022 21:23
Для поїздки за місто учням школи було виділено кілька автобусів, з однаковим числом місць у кожному автобусі. 344 чол. поїхали в ліс, а 473 чол. поїхали на озеро. всі місця в автобусах...
ariko010
27.01.2022 21:23
ответить true/false the perfect body most people were surprised when renee zellweger got the part of bridget in the film bridget jones s diary. the film is about a young woman who...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
i,n,m,x,k:Integer;
s:String;
Begin
Read(n);
While (n>0) do
begin
m:=(n mod 10);
n:=(n div 10);
x:=x+m;
k:=k+1;
end;
Writeln('Сума : ',x);
Writeln('Середнє арифметичне : ',x/k:0:1);
end.