Вывести количество чисел в наборе - Pascal ABC

Pascal ABC

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Рейтинг 5.00/6:

@Aeka 0 / 0 / 0 Регистрация: 20.11.2010 Сообщений: 22

	Вывести количество чисел в наборе 29.11.2010, 09:19. Показов 1188. Ответов 2 Метки нет (Все метки) Дан набор нулевых целых чисел; признак его завершания - число 0. Вывести количество чисел в наборе. 0

Лучшие ответы (1)

Сообщение: #1151701

cpp_developer

Эксперт

20123 / 5690 / 1417

Регистрация: 09.04.2010

Сообщений: 22,546

Блог

29.11.2010, 09:19

Ответы с готовыми решениями:

Даны К наборов ненулевых целых чисел. Вывести количество элементов в каждом наборе и их общее количество
Дано целое число К, а также К наборов ненулевьк целых чисел. Признаком завершения каждого набора является число 0. Для каждого набора...

Дано целое число K и набор целых чисел. Вывести количество чисел в наборе, меньших K
35. Дано целое число K и набор ненулевых целых чисел; признак его завершения — число 0. Вывести количество чисел в наборе, меньших K.

Вывести номера тех чисел в наборе, которые меньше своего левого соседа, и количество K таких чисел
2)*Дано целое число N и набор из N целых чисел. Вывести номера тех чисел в наборе, которые меньше своего левого соседа, и количество K...

Puporev

Почетный модератор

64315 / 47611 / 32743

Регистрация: 18.05.2008

Сообщений: 115,167

29.11.2010, 10:08

Сообщение было отмечено Aeka как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
uses crt;
var a,n:integer;
begin
writeln('Введите целые, ненулевые числа, окончание ввода 0:');
n:=0;
repeat
readln(a);
if a<>0 then n:=n+1;
until a=0;
write('Количество чисел в наборе=',n);
end.

@кот Бегемот Платежеспособный зверь 8966 / 4389 / 1655 Регистрация: 28.10.2009 Сообщений: 11,647
	30.11.2010, 00:22
	Puporev, можно было и без условия, просто напечатать n-1 0

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

raxper

Эксперт

30234 / 6612 / 1498

Регистрация: 28.12.2010

Сообщений: 21,154

Блог

30.11.2010, 00:22

Помогаю со студенческими работами здесь

Найти количество четных чисел в наборе из 10 целых чисел
Описать функцию Even(K) логического типа, возвращающую True, если целый параметр K яв-ляется четным, и False в противном случае. С ее...

Дано целое число N и набор из N целых чисел. Найти максимальное количество нечетных чисел в наборе, идущих подряд
Дано целое число N и набор из N целых чисел. Найти максимальное количество нечетных чисел в наборе, идущих подряд. Если нечетные числа в...

Вывести сумму всех положетельных четных чисел из данного набора. Если требуемые числа в наборе отсутствуют, то вывести ноль.
дан набор нелулевых целых чисел ; признак его завершения число 0. Вывести сумму всех положетельных четных чисел из данного набора. Если...

Найти количество положительных чисел в данном наборе
1.Дано N вещественных чисел. Найти количество положительных чисел в данном наборе.

Вывести те элементы в наборе, которые меньше своего левого соседа, и их количество
одномерный массив дано целое число N (>1) и набор из N целых чисел. Вывести те элементы в наборе, которые меньше своего левого соседа, и...

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Новые блоги и статьи Все статьи Все блоги /
Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .	Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ	Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .	Горе от ума kumehtar 07.04.2026 Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .
Использование значений реквизитов справочника в документе, с определенными условиями и правами Maks 07.04.2026 1. Контроль срока действия договора Алгоритм из решения ниже реализован на примере нетипового документа "ЗаявкаНаРаботу", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если. . .	Доступность команды формы по условию Maks 07.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: сделать доступной кнопку (команда формы "ЗавершитьСписание") при. . .	Уведомление о неверно выбранном значении справочника Maks 06.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .	Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .

Наверх