Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
stigma70
08.07.2020 07:47 •
Информатика
Знайти суму чисел введеного чотирьохзначного числа та їх середнє арифметичне наприклад 2013 = 2+0+1+3 =6середнє арифметичне 6/4=1,5
Показать ответ
Ответ:
cotik22890
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 оценок)
Популярные вопросы: Информатика
daniliwotchesi
27.01.2022 04:23
Выберите из списка почтовые программы. FTP Foxmail Popcorn Mailbird Inky...
ВикаЛук1
21.11.2022 03:52
Решите хоть какие то гомера по информатике...
taetae8
21.08.2022 07:40
Составить характеристику владимиро-суздальского княжества по плану:1) географическое положение, 2)занятия населения 3)как строилась управление 4)имена князей...
Makeev20
24.10.2020 08:36
Молоко и кефир-это вещества?...
элог
24.10.2020 08:36
Определите дефект массы...
alexeyvinogradp0do9x
24.10.2020 08:36
На точку A действуют две силы AB−→− и AC−→− одинаковой величины. Угол между ними ∡A=50°. Определи величину приложенных сил, если в результате на точку A действует сила величиной 75...
Andylov
27.05.2021 14:05
Какова скорость машины, если его колеса, имеющие диаметр 38 см, делают 215 оборотов в минуту ?...
2006veronika34
06.12.2021 16:56
Какой тип отношений между организмами является основным в биогеоценозе? Приведите пример....
ffinparnisha
27.05.2021 14:05
Как трактуются идеи сохранения мира в мировых религиях?...
jgkdjsnsnbdndndndjd
27.05.2021 14:05
Перестрой предложение с косвенной речью в предложения с прямой...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.