Тема: Сложные условия в операторе IF 1. Поезд составлен из 17 вагонов по 36 мест в каждом. Ввести с клавиатуры № вагона и места. Определить, нет ли ошибки. 2. В поезде 3-й, 7-й,…

Вам нужно написать два отдельных программы на PascalABC.NET для решения указанных задач. Вот как это можно сделать:

Задача 1: Определение ошибок в номере вагона и месте

program CheckTrainCarriage;

var
  wagonNumber, seatNumber: integer;

begin
  // Ввод данных с клавиатуры
  Write('Введите номер вагона (1-17): ');
  ReadLn(wagonNumber);
  
  Write('Введите номер места (1-36): ');
  ReadLn(seatNumber);
  
  // Проверка на наличие ошибок
  if (wagonNumber < 1) or (wagonNumber > 17) then
    WriteLn('Ошибка: Номер вагона должен быть от 1 до 17.')
  else if (seatNumber < 1) or (seatNumber > 36) then
    WriteLn('Ошибка: Номер места должен быть от 1 до 36.')
  else
    WriteLn('Ввод корректен: Вагон ', wagonNumber, ', Место ', seatNumber);
end.

Задача 2: Определение вида вагона по его номеру

program CheckWagonType;

var
  wagonNumber: integer;

begin
  // Ввод номера вагона
  Write('Введите номер вагона (положительное целое число): ');
  ReadLn(wagonNumber);
  
  // Проверка на тип вагона
  if (wagonNumber < 1) then
    WriteLn('Ошибка: Номер вагона должен быть положительным целым числом.')
  else if (wagonNumber = 3) or (wagonNumber = 7) or (wagonNumber = 9) then
    WriteLn('Вагон купейный')
  else if (wagonNumber >= 1) and (wagonNumber <= 17) then
    WriteLn('Вагон плацкартный')
  else
    WriteLn('Ошибка: Номер вагона должен быть от 1 до 17.');
end.

Как запустить код в PascalABC.NET:

1. Откройте PascalABC.NET.
2. Создайте новый проект.
3. Выберите "Создать новый файл" и вставьте код одной из программ.
4. Сохраните файл с расширением .pas.
5. Нажмите кнопку "Запустить" или используйте сочетание клавиш F9 для выполнения программы.

Повторите эти шаги для второй программы. Эти программы обеспечивают проверки на корректность введенных данных и вывод информации о вагоне.