Question

Дано пятизначное число. Поменять в нём первую и последнюю цифру местами. Напишите программу на паскалепожалуйста, срочно​

Answer 1

Ответ:

PascalВыделить код

1

2

3

4

5

6

7

8

9

var

k,n,q:string;

begin

readln(n);

q:=n[1];

n[1]:=n[4];

n[4]:=q[1];

writeln(n);

end.

Answer 2

Конечно, вот программа на Pascal, которая меняет местами первую и последнюю цифру пятизначного числа:

pascalCopy code
program SwapFirstAndLastDigit;
var
  number, firstDigit, lastDigit, swappedNumber: integer;
begin
  writeln('Введите пятизначное число: ');
  readln(number);

  // Проверка на пятизначность числа
  if (number < 10000) or (number > 99999) then
  begin
    writeln('Введите пятизначное число!');
    exit;
  end;

  // Находим первую и последнюю цифры
  firstDigit := number div 10000;
  lastDigit := number mod 10;

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

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

Программа сначала проверяет, что введено пятизначное число, а затем выполняет обмен местами первой и последней цифры.