PASCAL ABC Составить программу, которая определяет подходит кандидат на работу или нет. Возраст:не больше...

Вот решения для трёх заданий на языке Pascal ABC.

Задача 1: Определение подходит ли кандидат на работу

program CandidateEligibility;

var
  age, experience: integer;

begin
  writeln('Введите возраст кандидата:');
  readln(age);
  writeln('Введите стаж работы кандидата (в годах):');
  readln(experience);
  
  if (age >= 17) and (age = 3) then
    writeln('Кандидат подходит на работу.')
  else
    writeln('Кандидат не подходит на работу.');
end.

В данном коде мы запрашиваем у пользователя возраст и стаж работы кандидата. Затем проверяем, соответствует ли кандидат условиям для приема на работу: возраст должен быть от 17 до 50 лет включительно, а стаж не менее 3 лет. В зависимости от результата проверки выводим соответствующее сообщение.

Задача 2: Определение количества чётных чисел

program CountEvenNumbers;

var
  a, b, c: integer;
  evenCount: integer;

begin
  writeln('Введите три числа:');
  readln(a);
  readln(b);
  readln(c);
  
  evenCount := 0; // Счетчик четных чисел
  
  if (a mod 2 = 0) then
    evenCount := evenCount + 1;
    
  if (b mod 2 = 0) then
    evenCount := evenCount + 1;
    
  if (c mod 2 = 0) then
    evenCount := evenCount + 1;

  writeln('Количество четных чисел: ', evenCount);
end.

В этой программе мы запрашиваем три числа и подсчитываем, сколько из них чётные. Для этого используем оператор mod, который возвращает остаток от деления. Если остаток от деления на 2 равен нулю, значит число четное. Счетчик evenCount увеличивается на единицу для каждого четного числа.

Задача 3: Проверка, является ли 4-значное число палиндромом

program CheckPalindrome;

var
  number: integer;
  firstDigit, secondDigit, thirdDigit, fourthDigit: integer;

begin
  writeln('Введите 4-значное число:');
  readln(number);
  
  // Проверка, что число 4-значное
  if (number < 1000) or (number > 9999) then
  begin
    writeln('Ошибка: число должно быть 4-значным.');
    exit;
  end;

  // Извлечение цифр
  firstDigit := number div 1000; // Первая цифра
  secondDigit := (number div 100) mod 10; // Вторая цифра
  thirdDigit := (number div 10) mod 10; // Третья цифра
  fourthDigit := number mod 10; // Четвертая цифра

  // Проверка на палиндром
  if (firstDigit = fourthDigit) and (secondDigit = thirdDigit) then
    writeln('Число является палиндромом.')
  else
    writeln('Число не является палиндромом.');
end.

В этом коде мы сначала проверяем, что введенное число действительно 4-значное. Затем извлекаем каждую из цифр числа и сравниваем первую и четвёртую, а также вторую и третью цифры. Если они совпадают, то число является палиндромом, и мы выводим соответствующее сообщение.

Эти программы решают поставленные задачи и могут быть запущены в среде Pascal ABC.

Задача 1: Проверка кандидата на работу

Для определения, подходит ли кандидат на работу, нужно учесть следующие критерии:

• Возраст кандидата должен быть не меньше 17 и не больше 50 лет.
• Стаж работы должен быть не менее 3 лет.

Программа будет запрашивать у пользователя возраст и стаж, а затем проверять эти условия. Если условия выполнены, программа выводит, что кандидат подходит, иначе — не подходит.

Пример реализации кода на Pascal ABC:

program CheckCandidate;

var
  age, experience: integer;

begin
  writeln('Введите возраст кандидата:');
  readln(age);
  writeln('Введите стаж работы кандидата:');
  readln(experience);

  if (age >= 17) and (age = 3) then
    writeln('Кандидат подходит на работу.')
  else
    writeln('Кандидат не подходит на работу.');
end.

Задача 2: Определение количества чётных чисел среди трёх

Для этой задачи нужно определить, сколько из трёх введённых чисел являются чётными. Чётное число — это число, которое делится на 2 без остатка (условие: number mod 2 = 0).

Пример реализации кода на Pascal ABC:

program CountEvenNumbers;

var
  a, b, c, count: integer;

begin
  writeln('Введите три числа:');
  readln(a, b, c);

  count := 0;

  if a mod 2 = 0 then
    count := count + 1;
  if b mod 2 = 0 then
    count := count + 1;
  if c mod 2 = 0 then
    count := count + 1;

  writeln('Количество чётных чисел: ', count);
end.

Задача 3: Проверка, является ли четырёхзначное число палиндромом

Палиндромом называется число, которое читается одинаково как слева направо, так и справа налево. Например, числа 1221 и 3443 являются палиндромами.

Для проверки, является ли число палиндромом:

1. Убедимся, что число четырёхзначное (от 1000 до 9999).
2. Разделим число на цифры: первая — тысяча, вторая — сотня, третья — десяток, четвёртая — единица.
3. Сравним первую и последнюю цифру, а также вторую и третью. Если они совпадают, то число — палиндром.

Пример реализации кода на Pascal ABC:

program IsPalindrome;

var
  number, digit1, digit2, digit3, digit4: integer;

begin
  writeln('Введите четырёхзначное число:');
  readln(number);

  if (number < 1000) or (number > 9999) then
    writeln('Это не четырёхзначное число.')
  else
  begin
    digit1 := number div 1000;            // Первая цифра
    digit2 := (number div 100) mod 10;    // Вторая цифра
    digit3 := (number div 10) mod 10;     // Третья цифра
    digit4 := number mod 10;              // Четвёртая цифра

    if (digit1 = digit4) and (digit2 = digit3) then
      writeln('Число является палиндромом.')
    else
      writeln('Число не является палиндромом.');
  end;
end.

Пояснение

1. Первая задача проверяет условия возраста и стажа с использованием логического оператора and.
2. Вторая задача использует модульное деление для проверки чётности числа, а результат подсчёта увеличивается при выполнении условия.
3. Третья задача включает разбиение числа на цифры с помощью операций деления и взятия остатка.

Все три программы написаны в простом стиле, чтобы их можно было легко понять и использовать.

Вот решения для каждой из задач на языке Pascal ABC.

Задача 1: Определение подходящего кандидата

program CandidateCheck;
var
  age, experience: integer;
begin
  writeln('Введите возраст кандидата:');
  readln(age);
  writeln('Введите стаж работы (в годах):');
  readln(experience);

  if (age >= 17) and (age = 3) then
    writeln('Кандидат подходит для работы.')
  else
    writeln('Кандидат не подходит для работы.');
end.

Задача 2: Определение количества четных чисел

program CountEvenNumbers;
var
  a, b, c, evenCount: integer;
begin
  writeln('Введите три числа:');
  readln(a, b, c);
  evenCount := 0;

  if (a mod 2 = 0) then inc(evenCount);
  if (b mod 2 = 0) then inc(evenCount);
  if (c mod 2 = 0) then inc(evenCount);

  writeln('Количество четных чисел: ', evenCount);
end.

Задача 3: Проверка на палиндром

program PalindromeCheck;
var
  num: integer;
  d1, d2, d3, d4: integer;
begin
  writeln('Введите 4-х значное число:');
  readln(num);

  // Извлечение цифр
  d1 := num div 1000; // первая цифра
  d2 := (num div 100) mod 10; // вторая цифра
  d3 := (num div 10) mod 10; // третья цифра
  d4 := num mod 10; // четвертая цифра

  if (d1 = d4) and (d2 = d3) then
    writeln('Число является палиндромом.')
  else
    writeln('Число не является палиндромом.');
end.

Каждое из решений можно компилировать и запускать в среде Pascal ABC.