Номера двух лотерейных билетов - PascalABC.NET
Формулировка задачи:
Задача С.
К празднованию Наурыза было выпущено более 500 уникальных лотерейных билетов. Номер каждого билета состоит из 30 цифр. Их уникальность состоит в том, что в розыгрыше могут участвовать только парные билеты. Парными являются билеты сумма номеров которых является четным числом. Помогите участникам выяснить могут ли они принять участие в лотерее. Ответом является слово «Да» или «Нет».
Входные данные: номера двух лотерейных билетов
123456789123456789120012345987
987654321234567890985637263546
Выходные данные:
Нет
Решение задачи: «Номера двух лотерейных билетов»
textual
Листинг программы
begin var A := ReadLnString; var B := ReadLnString; WriteLn((A.Length = 30) and (B.Length = 30) and (odd(ord(A[30])) = odd(ord(B[30]))) ? 'Да' : 'Нет'); end.
Объяснение кода листинга программы
В данном коде на языке PascalABC.Net происходит следующая последовательность действий:
- Ввод двух строк (лотерейных билетов) с помощью функции ReadLnString.
- Проверка условий:
- Длина каждой строки должна быть равна 30 символам (A.Length = 30)
- Последний символ каждой строки должен быть неопределенным (odd(ord(A[30])))
- Сравнение последних символов строк (ord(A[30])) и (ord(B[30])).
- Вывод результата проверки с помощью функции WriteLn.
- Если все условия выполняются, выводится слово
Да
, иначе выводится словоНет
. Таким образом, данный код проверяет, являются ли два введенных лотерейных билета выигрышными.