Question

Ввести с клавиатуры пятизначное число, вывести его в обратном порядке. (48765 -> 56784) паскаль

Answer 1

Program z25;  Var  i, j, l, b:integer; n:string;Begin  write('Введите число - '); readln(n);  l:= n.Length;  b:= l;  for i:=1 to l div 2 do  begin    swap(n[i], n[b]);    b:= b - i;  end;  writeln(n);End.

Answer 2

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

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

Вот пример реализации данного алгоритма на языке Паскаль:

program ReverseNumber;

var
  number, digit1, digit2, digit3, digit4, digit5: Integer;

begin
  // Шаг 1: объявление переменных
  number := 0;
  digit1 := 0;
  digit2 := 0;
  digit3 := 0;
  digit4 := 0;
  digit5 := 0;

// Шаг 2: чтение пятизначного числа
  writeln('Введите пятизначное число: ');
  readln(number);

// Шаг 3: получение каждой цифры числа
  digit1 := number mod 10;
  digit2 := (number div 10) mod 10;
  digit3 := (number div 100) mod 10;
  digit4 := (number div 1000) mod 10;
  digit5 := (number div 10000) mod 10;

// Шаг 6: вывод значений переменных в обратном порядке
  writeln('Число в обратном порядке: ', digit5, digit4, digit3, digit2, digit1);

end.

После запуска программы она запросит у пользователя ввести пятизначное число. Затем программа выведет это число в обратном порядке. Например, для числа 48765 вывод будет следующим: "Число в обратном порядке: 56784".