Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
1user
21.02.2020 02:03 •
Информатика
Дана последовательность целых чисел, заканчивающихся нулём. посчитать кол-во четных и нечетных чисел, сумму и среднее арифметическое. написать программу на паскале.
Показать ответ
Ответ:
ksenia112005
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 оценок)
Популярные вопросы: Информатика
Ladinikit
03.09.2020 22:16
Определите к какому блоку относятся следующие команды ...
Hujaev01
11.12.2021 13:42
Рассчитай объём видеопамяти, необходимой для хранения графического изображения, занимающего весь экран монитора с разрешением 720×350 и палитрой из 65536 цветов. ответ:...
emelik96
19.05.2020 20:27
Наименьшим элементом в текстовом документе является...
Quickpool
25.05.2023 01:20
Запиши число 13697 в развёрнутом виде,начиная со старшего разряда...
natalia1676
26.12.2022 15:51
Написать программу, которая сможет определить, есть ли среди цифр заданного целого трёхзначного числа одинаковые. даны три переменные вещественного типа: a, b, c. если...
voronbakhozs9gh
28.02.2023 08:35
Равлик повзе по стовбуру дерева заввишки12метрів .зф день він піднімається на 3 метри ,але за ніч сповзає вниз на 2 метри .скільки днів потрібно равлику,щоб дістатися...
aliha001
20.08.2020 12:12
Написать программу, которая вводит с клавиатуры не пустой массив целых чисел, печатает его, затем находит максимальный и минимальный элемент массива, выводит их на экран....
друг32
20.08.2020 12:12
Написать программу по информатике! найти произведение двузначных нечетных чисел, кратных 13. нужно написать программу на цикле с предусловием, на паскале....
LipskiyTimur
03.07.2020 03:09
Дан массив состоящий из 8 элементов , отсортировать его по возрастанию...
Анека1111111
26.03.2020 08:15
Повесть: Капитанская дочка 2. Каково значение сна Петруши в дальнейшем сюжете повести? Попробуйтеобъяснить его....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.