Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
lehfrb
27.01.2020 19:42 •
Информатика
На экран вводится два пятизначных числа. найти среднее арифметическое всех четных цифр в наименьшем из чисел
Показать ответ
Ответ:
ХранительТьмы228
03.08.2020 14:27
Var
a, b, n: integer;
sr: real;
begin
sr := 0;
n := 0;
read(a, b);
if(a > b) then a := b;
while a > 0 do
begin
if((a mod 10) mod 2 = 0) then begin
sr := sr + a mod 10;
n := n + 1;
end;
a := a div 10;
end;
write(sr / n);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Denisigroman
21.09.2021 23:11
Графика в python решить ...
Счacтье2005
10.07.2020 21:24
Язык программирования Python (8класс)...
svelt04
23.08.2021 12:10
С какой команды можно вызвать из библиотеки рисования черный обычный карандаш...
mrtwice
20.06.2020 21:55
*1.Современные операционные системы компании Microsoft носят название …* а) Windows б) Linux в)Microsoft г) MacOS *2. Логически связанная совокупность данных или программ, для...
Zheka5644
30.10.2021 05:38
Для чего может быть предназначена каждая из моделей...
Stacool220
13.04.2023 10:08
25б тест 1. выполнение команды активного режима. х) tab ц) shift ч) enter ш) shift + enter 2. установка или снятие флажка. а) space б) tab в) enter г) space + tab 3. вырезать...
лучшая40
17.02.2023 10:51
Файл размером 1600 кбайт передаётся через некоторое соединение в течении 80 секунд определите время которое будет передаваться через это же соединение файл размером 3000 кбайт....
Nadia3567
05.04.2020 19:30
Составить программу, выводящую числа от 70 до 100, которые нечетные и делятся на 3. найти их сумму и количество этих чисел....
MaXD1337
02.01.2023 05:33
Как разделить 289460 на 700 столбиком?...
mvyazaniya
02.01.2023 05:33
Наречие- речи,объединяющая слова с и .наречия отвечают на вопросы , наречия имеют непостоянный признак- другие непостоянные морфологические признаки у наречий . в предложении...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
a, b, n: integer;
sr: real;
begin
sr := 0;
n := 0;
read(a, b);
if(a > b) then a := b;
while a > 0 do
begin
if((a mod 10) mod 2 = 0) then begin
sr := sr + a mod 10;
n := n + 1;
end;
a := a div 10;
end;
write(sr / n);
end.