Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Reson1
17.03.2022 04:08 •
Информатика
Дана последовательность целых чисел, заканчивающихся нулём. посчитать кол-во четных и нечетных чисел, сумму и среднее арифметическое. написать программу на паскале.
Показать ответ
Ответ:
НяшаНика
05.10.2020 09:47
Var
sum, count, r, i: integer;
begin
repeat
write ('Введите число: ');
readln (r);
inc (sum, r);
inc (i);
if (r mod 2)<>0 then inc (count);
until r=0;
writeln ('');
writeln ('Сумма элементов: ', sum);
writeln ('СА: ', sum/i);
writeln ('Нечетных элементов: ', count);
writeln ('Четных элементов: ', i-count);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
SvetaMew
11.10.2022 16:16
Робот оснащён двумя отдельно управляемыми колёсами, радиус каждого из колёс равен 5 см. Левым колесом управляет мотор А, правым колесом управляет мотор В. Колёса напрямую подсоединены...
Natasharuslan11
10.11.2022 14:47
Составьте адрес из фрагментов Доступ к файлу cropped-logo-2.0.1.png,находящемуся на сервере it-black.ru, осуществляется по протоколу HTTPS. Фрагменты адреса файла предоставлены ниже....
tanecka2
26.06.2020 06:49
Дати визначення поняттям: стиль, посилання.описати алгоритм дій для автоматизованого створення змісту документа...
PokerFresh
13.05.2023 01:56
плз назвіть 5 цікавих фактів з життя особистостей пов’язаних з інформаційними технологіями....
ВоржеваСоня
18.09.2021 11:37
Pascal ABC.NET Очень нужно: Створити алгоритм і програму знаходження значення функції: z=7t+cos(t), якщо t=1.5m+sin(m), якщо m=3.5k^3+9.16, для серії значень k=7; k=4; k=20....
hakimjon232
20.10.2021 22:21
Нужно переделать под паскаль x=[] y=[] nmax=50 with open ( 5.txt ) as f: for line in f: data=list(map(float, line.split())) x.append(data[0]) y.append(data[1]) x_sr=0 y_sr=0 sigma=0...
didlok
24.07.2021 02:11
Задача 2 Дано. Массив А, состоящий из двух элементов ноль и единица и квадратная матрица В два на два, состоящая из единиц. Вычислите их произведение. Математический вид задачи:...
super123jack
20.10.2021 22:21
Ниже записан алгоритм. Получив на вход число x, этот алгоритм печатает два числа: L и M. Укажите наибольшее число x, при вводе которого алгоритм печатает сначала 9, а потом 3. var...
Deniza23
02.01.2021 20:04
Вправильном n-угольнике угол между двумя радиусами вписанной окружности, проведенными к соседним сторонам, равен 15 градусов. найдите n/...
evzrezovatatya
02.01.2021 20:04
Участок одной из цепей молекулы днк имеет следующий состав нуклеотидов – цга цта тта гца. запишите последовательность нуклеотидов комплементарной цепи днк....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
sum, count, r, i: integer;
begin
repeat
write ('Введите число: ');
readln (r);
inc (sum, r);
inc (i);
if (r mod 2)<>0 then inc (count);
until r=0;
writeln ('');
writeln ('Сумма элементов: ', sum);
writeln ('СА: ', sum/i);
writeln ('Нечетных элементов: ', count);
writeln ('Четных элементов: ', i-count);
end.