Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
Nikita12409
05.11.2022 09:28 •
Информатика
Програмирование в pascal, , скиньте работающую программу. дано четырёхзначное число. найдите среднее арифметическое его средних цифр. только без sum
Показать ответ
Ответ:
SuperMax2003rus
26.06.2020 22:59
Var a,i,n,sum:integer;
Begin
write('Введите 4-х значное число: '); readln(n);
i:=n mod 100; i:=i div 10;
a:=n div 100; a:=a mod 10;
sum:=a+i;
i:=sum div 2;
writeln('Среднее арифметическое средних чисел числа',n,'=',i);
End.
0,0
(0 оценок)
Популярные вопросы: Информатика
ириша182300
14.01.2021 14:09
Составьте программу, которая заполняет массив a[1..10] случайными целыми числами в диапазоне от 1 до 10 и вычисляет среднее арифметическое элементов массива...
ПрофессорЧерепашка
14.01.2021 14:09
1. какое логическое выражение эквивалентно выражению ¬(a /\ ¬b)→ c ? 1) (a /\ ¬b) \/ c 2) c \/ a ^ ¬b \/ c 3) (a → ¬b) \/ c 4) ¬(a \/ ¬b) \/ c 2. выражение: c /\ ¬(¬d /\ ¬c)...
dima012002
10.03.2021 02:34
Написать программу, которая вычисляет сумму первых n целых положительных чисел. количество суммируемых чисел должно вводиться во время работы программы. написать ее с цикла...
Kot2343
10.03.2021 02:34
1. в классе вика считается знатоком компьютеров, но в разное время от неё слышали следующие фразы: 1-вирус заразил мой компьютер, когда он был выключен* 2-вы случайно удалили...
максир
18.04.2021 15:35
Составьте блок-систему для нахождения количества, суммы и произведения всех натуральных чисел, делящихся на 4 на отрезке [16,64]...
kaspiridv603
28.12.2022 07:27
Определите количество итераций в программе: *...
lod2003
01.10.2020 22:00
Укажите счетчик цикла в программе: *...
кай24
03.07.2020 08:59
15 ! ! информатика,7 класс. программа-pascalabc. ( cc12 ) делать через робота...
ВИТ21
18.04.2020 23:19
1вопрос какое программное обеспечение компьютера является базовым?...
Alinka2128
06.03.2023 16:10
Для каждого из перечисленных моделей назовите действия которые человек может выполнить с ней и с объектом - оригиналом а) модель самолёта б) словесное описание куртки в) план...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
Begin
write('Введите 4-х значное число: '); readln(n);
i:=n mod 100; i:=i div 10;
a:=n div 100; a:=a mod 10;
sum:=a+i;
i:=sum div 2;
writeln('Среднее арифметическое средних чисел числа',n,'=',i);
End.