Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Dryunya1989
28.02.2022 06:10 •
Информатика
)вводится натуральное число. определить среднее арифметическое его цифр.pascal) не могли бы ?
Показать ответ
Ответ:
McBlanse
02.10.2020 16:51
var
a,s,k : integer;
Sr : real;
begin
s := 0; k := 0;
readln (a);
While a > 0 do
begin
s := s + a mod 10;
a := a div 10;
k := k +1;
end;
Sr := S/k;
writeln (Sr);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
alin42
15.02.2020 21:28
Исполнитель вычислитель получает на вход целое х число, и может выполнять с ним преобразования по алгоритму, состоящему из любого количества команд: 1) прибавить 5; 2)...
его18
02.01.2023 20:24
Запишіть виконання наведеного фрагмента програми для табличної величини, значеннями елементів якої є числа: 0,5; -3; 2; -1,6. sum: =0; for i: = 1 to 4 do sum: =sum +...
alfami2004
05.12.2020 12:21
Запиши верные ответы. ( запиши данное число в двоичной, восьмеричной и шестнадцатеричной системе счисления) системы счисления: десятичная: 0 двоичная: восьмеричная: шестнадцатеричная:...
тутенштейн95
25.03.2023 22:16
Разработать программу на языке pascal abc. если в заданном одномерном массиве a[n] есть хотя-бы одно четное число,то элементы массива расположить по расположению, в противном...
limbo03rus
18.05.2022 00:25
Даны три вершины квадрата BCDE: B(3;5); D(11;5); E(7;1). (На координатной плоскости нарисуй квадрат BCDE, определи и запиши координаты четвертой вершины квадрата!) ответ:...
ЮкиНайи
29.09.2022 20:25
Задания по инфортике 8 класса...
bulycheva0303
30.10.2021 14:55
Уробота есть строка, состоящая из латинских строчных букв a, b, c. он сокращает эту строку по следующему правилу: просматривает ее слева направо, если встречает четыре...
Dimo558
14.08.2022 13:23
Может быть, малолетние нарушители закона действительно не осознают, что наносят вред людям? нужно ли наказывать таких несмышлёнышей ? что ты об этом думаешь?...
Linka00128
14.08.2022 13:23
Чем китайская письменность похожа на египетскую? как выглядели китайские книги?...
taniataolia
14.08.2022 13:23
3предложения с придаточным изъяснит 3 предложения определит...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
a,s,k : integer;
Sr : real;
begin
s := 0; k := 0;
readln (a);
While a > 0 do
begin
s := s + a mod 10;
a := a div 10;
k := k +1;
end;
Sr := S/k;
writeln (Sr);
end.