Дано целое число К и набор ненулевых целых чисел; Признак его завершения - число 0. Вывести кол-во чисел в наборе, меньших К. - Turbo Pascal

Turbo Pascal

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

Войти

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

Рейтинг 4.56/16:

@scoundrel 0 / 0 / 0 Регистрация: 21.04.2011 Сообщений: 3
		1
	Дано целое число К и набор ненулевых целых чисел; Признак его завершения - число 0. Вывести кол-во чисел в наборе, меньших К. 21.04.2011, 23:35. Показов 3280. Ответов 1 Метки нет (Все метки) помогите пожалуйста 0

Заказать работу у эксперта

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

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

cpp_developer

Эксперт

20123 / 5690 / 1417

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

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

Блог

21.04.2011, 23:35

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

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

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

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

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

KaiTheCat

К.О.

534 / 499 / 344

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

Сообщений: 1,141

22.04.2011, 00:21

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

Решение

Pascal

var
  n,k,l: integer;
Begin
  readln(k);
  l:=0;
  repeat
    readln(n);
    if n<k then inc(l)
  until n=0;
  writeln(l);
  readln
End.

	22.04.2011, 00:21

raxper

Эксперт

30234 / 6612 / 1498

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

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

Блог

22.04.2011, 00:21

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

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

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

дано целое число К и набор ненулевых целых чисел
помогите решить задачу дано целое число К и набор ненулевых целых чисел;признак его завершения -...

Дано целое число N и набор из N целых чисел, Вывести сумму чисел из данного набор, расположенных между последними двумя нулями
Здравствуйте! Помогите решить задачу. Pascal. Дано целое число N и набор из N целых чисел,...

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

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

Новые блоги и статьи
Как написать микросервис на C# с Kafka, MediatR, Redis и GitLab CI/CD InfoMaster 15.01.2025 В современной разработке программного обеспечения микросервисная архитектура стала стандартом де-факто для создания масштабируемых и гибких приложений. Этот подход позволяет разделить сложную систему. . .	Что такое CQRS и как это реализовать на C# с MediatR InfoMaster 15.01.2025 Концепция CQRS и её роль в современной разработке В современном мире разработки программного обеспечения архитектурные паттерны играют ключевую роль в создании масштабируемых и поддерживаемых. . .	Как настроить CI/CD с Azure DevOps InfoMaster 15.01.2025 CI/ CD, или непрерывная интеграция и непрерывное развертывание, представляет собой современный подход к разработке программного обеспечения, который позволяет автоматизировать и оптимизировать процесс. . .	Как настроить CI/CD с помощью Jenkins InfoMaster 15.01.2025 Введение в CI/ CD и Jenkins В современной разработке программного обеспечения непрерывная интеграция (CI) и непрерывная доставка (CD) стали неотъемлемыми элементами процесса создания качественных. . .	Как написать микросервис на Go/Golang с Kafka, REST и GitHub CI/CD InfoMaster 14.01.2025 Определение микросервиса, преимущества использования Go/ Golang Микросервис – это архитектурный подход к разработке программного обеспечения, при котором приложение состоит из небольших, независимо. . .	Как написать микросервис с нуля на C# с RabbitMQ, CQRS, Swagger и CI/CD InfoMaster 14.01.2025 В современном мире разработки программного обеспечения микросервисная архитектура стала стандартом де-факто для создания масштабируемых и гибких приложений. Этот архитектурный подход предполагает. . .
Как создать интернет-магазин на PHP и JavaScript InfoMaster 14.01.2025 В современном мире электронная коммерция стала неотъемлемой частью бизнеса. Создание собственного интернет-магазина открывает широкие возможности для предпринимателей, позволяя достичь большей. . .	Как написать Тетрис на Ассемблере InfoMaster 14.01.2025 Тетрис – одна из самых узнаваемых и популярных компьютерных игр, созданная в 1984 году советским программистом Алексеем Пажитновым. За прошедшие десятилетия она завоевала симпатии миллионы людей по. . .	Как создать игру "Танчики" на Unity3d и C# InfoMaster 14.01.2025 Разработка игр – это увлекательный процесс, сочетающий в себе творчество и технические навыки. В этой статье мы рассмотрим создание классической игры "Танчики" с использованием Unity3D и языка. . .	Организую платный онлайн микро-курс по доработке Android-клиента Telegram _Ivana 14.01.2025 Официальная версия и распространенные форки не полностью устраивают? Сделай свою кастомную версию клиента! 4 занятия по 2 часа (2 недели пн, ср 19:00-21:00 по Москве). Первое вводное занятие. . .	Как создать приложение для фитнеса для iOS/iPhone на Kotlin InfoMaster 14.01.2025 Создание собственного фитнес-приложения — это не только захватывающий, но и полезный процесс, ведь оно может стать вашим верным помощником на пути к здоровому и активному образу жизни. В современных. . .	Как создать приложение магазина для iOS/iPhone на Swift InfoMaster 14.01.2025 Введение в разработку iOS-приложений Разработка приложений для iPhone и других устройств на базе iOS открывает огромные возможности для создания инновационных мобильных решений. В данной статье мы. . .

Наверх