Пользователь вводит число от 10 до 999. Если первая цифра этого числа чётная, то умножить число на его последнюю цифру, иначе сложить все цифры числа.решить по Паскалю

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

1. Ввод числа от 10 до 999.
2. Определить первую и последнюю цифры введённого числа.
3. Провести проверку: если первая цифра чётная, умножить число на последнюю цифру; если нечетная — сложить все цифры числа.

Вот пример кода на Паскале, который выполняет описанные операции:

program ProcessNumber;
var
  number, firstDigit, lastDigit, sumDigits: integer;
begin
  { Ввод числа }
  write('Введите число от 10 до 999: ');
  readln(number);

  { Проверка диапазона }
  if (number < 10) or (number > 999) then
  begin
    writeln('Число должно быть в диапазоне от 10 до 999.');
    exit;
  end;

  { Получение последней цифры }
  lastDigit := number mod 10;

  { Получение первой цифры }
  firstDigit := number div 100;  { Для числа 100 и больше }
  if (firstDigit = 0) then
    firstDigit := (number div 10) mod 10;  { Для числа меньше 100 }

  { Проверка на четность первой цифры }
  if (firstDigit mod 2 = 0) then
  begin
    { Если первая цифра четная, умножаем число на последнюю цифру }
    number := number * lastDigit;
  end
  else
  begin
    { Если первая цифра нечетная, складываем все цифры числа }
    sumDigits := 0;
    sumDigits := sumDigits + firstDigit;  { Первая цифра }
    sumDigits := sumDigits + (number div 10) mod 10;  { Средняя цифра }
    sumDigits := sumDigits + lastDigit;  { Последняя цифра }
    
    number := sumDigits;
  end;

  { Вывод результата }
  writeln('Результат: ', number);
end.

В этом коде:

• Мы запрашиваем у пользователя ввод числа и проверяем, чтобы оно находилось в диапазоне от 10 до 999.
• Извлекаем первую и последнюю цифры числа.
• Производим необходимые вычисления в зависимости от четности первой цифры.
• В конце выводим результат.

Если у вас будут вопросы по коду или если понадобится что-то уточнить, не стесняйтесь спрашивать!