Question

Дано натуральное число. Верно ли, что первая цифра данного числа - четная? Решить в турбо паскале, БЕЗ МАССИВОВ.

Answer 1

Для решения этой задачи в Турбо Паскале без использования массивов можно использовать циклы и операции деления.

Прежде всего, давайте определимся с алгоритмом:

1. Вводим натуральное число. 2. Используем цикл деления на 10 для выделения последней цифры числа. 3. После первой итерации получаем последнюю цифру. 4. Используем операцию деления на 10 для "отсечения" последней цифры числа. 5. Повторяем шаги 2-4 до тех пор, пока число не станет меньше 10. 6. После выхода из цикла у нас останется первая цифра исходного числа.

Теперь давайте напишем код на Турбо Паскаль:

program FirstDigitIsEven;

var
  number, lastDigit, firstDigit: integer;

begin
  // Вводим натуральное число
  write('Введите натуральное число: ');
  readln(number);

// Инициализируем переменные
  firstDigit := number; // сохраняем копию числа
  lastDigit := 0; // инициализируем последнюю цифру

// Используем цикл для нахождения последней цифры
  while number >= 10 do
  begin
    lastDigit := number mod 10; // получаем последнюю цифру
    number := number div 10;    // отсекаем последнюю цифру
  end;

// Осталась первая цифра в переменной number
  firstDigit := number;

// Проверяем, является ли первая цифра четной
  if (firstDigit mod 2 = 0) then
    writeln('Первая цифра числа ', firstDigit, ' четная.')
  else
    writeln('Первая цифра числа ', firstDigit, ' нечетная.');

end.

В этом коде мы используем операторы `mod` и `div` для выделения последней цифры и "отсечения" последней цифры числа соответственно. Затем мы проверяем, является ли первая цифра четной, и выводим соответствующее сообщение.