Номера двух лотерейных билетов - 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 происходит следующая последовательность действий:

  1. Ввод двух строк (лотерейных билетов) с помощью функции ReadLnString.
  2. Проверка условий:
    • Длина каждой строки должна быть равна 30 символам (A.Length = 30)
    • Последний символ каждой строки должен быть неопределенным (odd(ord(A[30])))
  3. Сравнение последних символов строк (ord(A[30])) и (ord(B[30])).
  4. Вывод результата проверки с помощью функции WriteLn.
  5. Если все условия выполняются, выводится слово Да, иначе выводится слово Нет. Таким образом, данный код проверяет, являются ли два введенных лотерейных билета выигрышными.

Оцени полезность:

11   голосов , оценка 3.909 из 5
Похожие ответы