Question

Решить задачу на Паскале(код записать в тетрадь): вводится трехзначное число, поменять в нем первую и третью цифры местами.

Answer 1

                                       PascalABC.NET

begin

 var a := ReadInteger('Введите число от 100 до 999 = ').Clamp(100,999);

 Print('Ответ:',a div 100 + a mod 10 * 100 + a mod 100 div 10 * 10);

end.

Answer 2

Вот пример кода на языке Паскаль, который решает задачу:

pascalCopy code
program SwapDigits;
var
  number, firstDigit, lastDigit, swappedNumber: integer;
begin
  // Ввод трехзначного числа
  write('Введите трехзначное число: ');
  readln(number);

  // Получение первой цифры
  firstDigit := number div 100;

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

  // Поменять местами первую и последнюю цифры
  swappedNumber := lastDigit * 100 + number mod 100 - lastDigit + firstDigit;

  // Вывод результата
  writeln('Число после замены: ', swappedNumber);
end.

Пожалуйста, обратите внимание, что код предназначен для использования в среде программирования, поддерживающей язык Паскаль, такую как Lazarus или Turbo Pascal.