Question

Дано 4 значное число,поменять местами первую и последнюю цифру. Программирование,составить в Паскале

Answer 1

Если надо вывести получившееся число без ведущих нулей (т.е. 1000 превратить в 1), то можно так:

var n: integer;
begin
  readln(n);
  writeln(1000 * (n mod 10) + (n - (n mod 10) - 1000 * (n div 1000)) + n div 1000)
end.

Если надо сохранять ведущие нули, то можно, например, считать число посимвольно.

var i: integer;
  c: array[1 .. 4] of char;
  t: char;
begin
  for i := 1 to 4 do
    read(c[i]);
  t := c[1]; c[1] := c[4]; c[4] := t;
  for i := 1 to 4 do
    write(c[i])
end.

Answer 2

Для решения этой задачи в языке Pascal можно использовать следующий алгоритм:

1. Считать 4-значное число с клавиатуры. 2. Разделить число на отдельные цифры. Для этого можно использовать операцию деления на 10 и нахождение остатка от деления на 10. 3. Сохранить первую и последнюю цифры в отдельные переменные. 4. Поменять местами первую и последнюю цифру. 5. Собрать новое число, поместив измененные первую и последнюю цифры на соответствующие места. 6. Вывести новое число на экран.

Пример решения в языке Pascal:

program SwapDigits;

var
  number, firstDigit, lastDigit, newNumber: integer;

begin
  // Шаг 1: Считываем число с клавиатуры
  writeln('Введите 4-значное число:');
  readln(number);

// Шаг 2: Разделяем число на цифры
  firstDigit := number div 1000;
  lastDigit := number mod 10;

// Шаг 3: Меняем местами первую и последнюю цифры
  newNumber := lastDigit * 1000 + number mod 1000 div 10 * 100 + firstDigit * 10 + number mod 100;

// Шаг 4: Выводим новое число на экран
  writeln('Измененное число:', newNumber);
end.

Введя, например, число 1234, программа выведет результат 4231, где первая и последняя цифры поменялись местами.