Даны 3 числа. Выбрать и напечатать из них принадлежащие промежутку (0; 17] Если таких чисел нет, сообщить об этом

@thevelasco · Регистрация: 18.12.2022

Студворк — интернет-сервис помощи студентам

@Mekan · 20.12.2022, 08:18

Pascal
1
2
3
4
5
6
7
8
var a:real; k:byte;
begin
for i:=1 to 3 do begin
read(a);
if (a>0) and (a<=17) then begin print(a); k:=1; end;
end;
if k=0 then print('Таких чисел нет');
end.

@Cyborg Drone · 20.12.2022, 18:08

Mekan, пожалуйста, проверяйте программы перед тем, как выкладывать их на всеобщее обозрение.

Переменную i нужно было где-либо описать.

После исправления ошибки тоже получается не очень: если числа вводить не через пробел, а отдельно на каждой строке, что read вполне допускает, то Ваша програма работает далеко не так, как планировалось.

Pascal
1
2
3
4
##
  var a := ReadArrReal('Введите три числа:', 3).Where(x -> (x > 0) and (x <= 17));
  'Числа из промежутка (0; 17]:'.Print;
  if a.Count > 0 then a.Println else 'не найдены'.PrintLn

thevelasco, при регистрации на форуме Вы обещали соблюдать правила форума. Пожалуйста, выполняйте Ваше обещание.

Дублирование и кросспостинг тем запрешены. Сразу создавайте тему в нужном разделе. Для того, чтобы поднять актуальность темы, достаточно написать в тему новое сообщение, например, из одного слова "Актуально", и тема тут же окажется наверху списка тем раздела. Новую тему создавать незачем.

Если требуется ответ на другом диалекте паскаля, у Вас появились какие-либо вопросы или ограничения по Вашему заданию, пишите об этом в существующей теме. При создании новой темы теряется контекст обсуждения, и Вам по 10 раз будут писать одно и то же очевидное решение. Обратите внимание, насколько похожи коды от Mekan в этой теме и от bormant в кроспосте этой темы Даны 3 числа. Выбрать и напечатать из них принадлежащие промежутку (0; 17] Если таких чисел нет, сообщить об этом.

@Mekan · 21.12.2022, 06:46

Спасибо, извините, подскажите пожайлуйста где можно рбучаться новизну паскала? Проста живу в Туркмении, тут все заблокировано, и впн нету, очеень сложно все! СПасибо за ранее!!

@Cyborg Drone · 21.12.2022, 10:45

Если расcуждать объективно, то Pascal ABC.NET - это уже не паскаль. Это .NET-язык, основанный на синтаксисе паскаля.

В среде Pascal ABC.NET есть встроенная справка, я изучал Pascal ABC.NET по этой справке.

@Sun Serega · 21.12.2022, 10:50

Mekan, у вас в IDE сверху есть кнопка "Помощь" - под ней справка, примеры, самый минимум чтобы самообучаться.
Если надо больше - смотрите на официальный сайт, с которого вы должны были скачивать: http://pascalabc.net/

А что касается VPN - я последнее время Cloudflare Warp юзаю. У него нет большинства фич что сейчас пропагандируют VPN-ы, но тоже позволяет обходить большинство блокировок, почти без потери скорости. И его фиг заблочат - на сервисах Cloudflare половина интернета держится.

@Mekan · 21.12.2022, 11:20

Сейчас у нас в стране и https://pascalabc.net/ и Cloudflare Warp заблокировано. А помощь я юзаю, только иногда чуть непонятные места есть проста. Спасибо!

@bormant · 21.12.2022, 11:38

Тогда остается только перебирать все подряд, вдруг что под блокировку не попало или из под нее вышло. На всякий случай, посмотрите на browsec (плагин для браузера).

@Sun Serega · 21.12.2022, 11:44

Мда, жесть конечно что у вас творится... Ну да ладно, сделайте тему на этом форуме или на форум этого языка если что не понятно.

И на официальном сайте ещё есть ссылки:
1. https://pascalabcnet.github.io/
2. https://t.me/pascalabc_official
Что-то из этого работает?

@Mekan · 21.12.2022, 12:04

https://pascalabcnet.github.io/program_health.html только это, другие нет )) Спасибо за все! Все таки тут мне пишут, тут форуме все очеень ясно и понятно!

Добавлено через 15 минут
так и делаеем но все безполезна, у нас впн стоит 100 $ (по офф курсам) и 15 $ ( по не офф)

Новые блоги и статьи Все статьи Все блоги /
Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20%	Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. 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:. . .	AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .

@thevelasco 0 / 0 / 0 Регистрация: 18.12.2022 Сообщений: 3

	Даны 3 числа. Выбрать и напечатать из них принадлежащие промежутку (0; 17] Если таких чисел нет, сообщить об этом 20.12.2022, 08:05. Показов 458. Ответов 9 Метки нет (Все метки) Даны 3 числа. Выбрать и напечатать из них принадлежащие промежутку (0; 17] Если таких чисел нет, сообщить об этом 0

@Mekan 3 / 1 / 2 Регистрация: 24.12.2014 Сообщений: 78
	21.12.2022, 06:46
	Спасибо, извините, подскажите пожайлуйста где можно рбучаться новизну паскала? Проста живу в Туркмении, тут все заблокировано, и впн нету, очеень сложно все! СПасибо за ранее!! 0

@Cyborg Drone Модератор 10451 / 5742 / 3409 Регистрация: 17.08.2012 Сообщений: 17,474
	21.12.2022, 10:45
	Если расcуждать объективно, то Pascal ABC.NET - это уже не паскаль. Это .NET-язык, основанный на синтаксисе паскаля. В среде Pascal ABC.NET есть встроенная справка, я изучал Pascal ABC.NET по этой справке. 0

@Sun Serega 2355 / 1458 / 526 Регистрация: 07.04.2017 Сообщений: 4,798
	21.12.2022, 10:50
	Mekan, у вас в IDE сверху есть кнопка "Помощь" - под ней справка, примеры, самый минимум чтобы самообучаться. Если надо больше - смотрите на официальный сайт, с которого вы должны были скачивать: http://pascalabc.net/ А что касается VPN - я последнее время Cloudflare Warp юзаю. У него нет большинства фич что сейчас пропагандируют VPN-ы, но тоже позволяет обходить большинство блокировок, почти без потери скорости. И его фиг заблочат - на сервисах Cloudflare половина интернета держится. 0

@Mekan 3 / 1 / 2 Регистрация: 24.12.2014 Сообщений: 78
	21.12.2022, 11:20
	Сейчас у нас в стране и https://pascalabc.net/ и Cloudflare Warp заблокировано. А помощь я юзаю, только иногда чуть непонятные места есть проста. Спасибо! 0

@bormant Модератор 7816 / 4635 / 2837 Регистрация: 22.11.2013 Сообщений: 13,159 Записей в блоге: 1
	21.12.2022, 11:38
	Тогда остается только перебирать все подряд, вдруг что под блокировку не попало или из под нее вышло. На всякий случай, посмотрите на browsec (плагин для браузера). 0

@Sun Serega 2355 / 1458 / 526 Регистрация: 07.04.2017 Сообщений: 4,798
	21.12.2022, 11:44
	Мда, жесть конечно что у вас творится... Ну да ладно, сделайте тему на этом форуме или на форум этого языка если что не понятно. И на официальном сайте ещё есть ссылки: 1. https://pascalabcnet.github.io/ 2. https://t.me/pascalabc_official Что-то из этого работает? 0

@Mekan 3 / 1 / 2 Регистрация: 24.12.2014 Сообщений: 78
	21.12.2022, 12:04
	https://pascalabcnet.github.io/program_health.html только это, другие нет )) Спасибо за все! Все таки тут мне пишут, тут форуме все очеень ясно и понятно! Добавлено через 15 минут так и делаеем но все безполезна, у нас впн стоит 100 $ (по офф курсам) и 15 $ ( по не офф) 0

Даны 3 числа. Выбрать и напечатать из них принадлежащие промежутку (0; 17] Если таких чисел нет, сообщить об этом

Решение