Логическое условие

@Василий-Робот · Регистрация: 04.11.2009

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

Только одно из чисел X, Y, Z меньше 20

Pascal
1
2
3
4
5
6
7
8
9
10
Мой код:
 var x, y, z: real;
 begin
 readln (x);
 readln (y);
 readln (z);
 if (x<20) xor (y<20) xor (z<20) then
 writeln (true) else
 writeln (false);
 end.

Если написать, что все числа равняются скажем двум то ответ тру, а не фолс
В чем фокус?

@Василий-Робот · 03.12.2009, 21:37 **[ТС]**

С Puporev мы уже разговаривали. Он серьезный парень)))

Добавлено через 3 минуты
Насчет Ord
Вот из литературы цитата: код символа в Паскале можно определить при помощи функции Ord.
Все. Как это понять, я понять не могу.
Объясните дураку

@Puporev · 03.12.2009, 21:41

Вот если бы Турбо Паскаль был, прочитали бы в справке

Ord (функция)
--------------
Возвращает порядковое значение выражения
перечисляемого типа.

Объявление:
Function Ord(X) : Longint;

Режим:
Windows, Real, Protected

Замечания:
Параметр X - выражение перечисляемого типа.
Результат имеет тип LongInt, a его значение -
порядковый номер X в типе.

@Inadequate · 03.12.2009, 21:46

Вот если бы чители внимательнее справку, то и в ABC есть

Ord(x) функция x - порядкового типа integer возвращает номер значения порядкового типа

даже если Вы не поняли что такое порядковый тип

Порядковые типы
Тип integer (целый). Значения этого типа занимают 4 байта и находятся в диапазоне от -2147483648 до 2147483647. Константа MaxInt хранит значение 2147483647.

Тип byte (беззнаковый целый). Значения этого типа занимают 1 байт и находятся в диапазоне от 0 до 255.

Тип word (беззнаковый целый). Значения этого типа занимают 2 байта и находятся в диапазоне от 0 до 65535.

Тип char (символьный). Значения этого типа занимают 1 байт и представляют собой символы в кодировке Windows. Стандартная функция Chr(x) возвращает символ с кодом x. Константы этого типа могут быть записаны в виде #x, где x - целое число от 0 до 255.

так что делайте выводы сами...

Новые блоги и статьи Все статьи Все блоги /
Запустил конкурс "тем и промптов для текстовых квестов созданных почти чисто ИИ" Adler 06.10.2026 Всем привет! За последние три-четыре дня я создал более 16 текстовых квестовых игр используя преимущественно по одному запросу к ИИ на игру. Мне так понравилось смотреть все ветки/ сцены во всех. . .	ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .	Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .
Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .	Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .

@Василий-Робот TECHNO 28 / 28 / 8 Регистрация: 04.11.2009 Сообщений: 366
	03.12.2009, 21:37 [ТС]
	С Puporev мы уже разговаривали. Он серьезный парень))) Добавлено через 3 минуты Насчет Ord Вот из литературы цитата: код символа в Паскале можно определить при помощи функции Ord. Все. Как это понять, я понять не могу. Объясните дураку 0