Question

ПОМОГИТЕ РЕШИТЬ ПО ПАСКАЛЮ.С ПОЛНЫМ РЕШЕНИЕМ Дано четырехзначное число. Найти: а) число, полученное при прочтении его цифр справа налево; б) число, образованное перестановкой двух первых и двух последних цифр заданного числа. Например, из числа 4566 получить 6645, из числа 7304 — 473; в) число, образованное перестановкой первой и второй, третьей и четвертой цифр заданного числа. Например, из чис­ ла 5434 получить 4543, из числа 7048 — 784; г) число, образованное перестановкой второй и третьей цифр заданного числа. Например, из числа 5084 получить 5804.

Answer 1

Var
  i,n:integer;
  a:array[1..4] of integer;
begin
  Write('n='); Read(n);
  for i:=1 to 4 do begin
    a[5-i]:=n mod 10;
    n:=n div 10
    end;
  Writeln(a[4]*1000+a[3]*100+a[2]*10+a[1]);
  Writeln(a[3]*1000+a[4]*100+a[1]*10+a[2]);
  Writeln(a[2]*1000+a[1]*100+a[4]*10+a[3]);
  Writeln(a[1]*1000+a[3]*100+a[2]*10+a[4])
end.

Пример
n=7048
8407
4870
784
7408

Answer 2

Решение задачи на Паскале

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

program FourDigitNumber;
var
  number, reverse, swap1, swap2, swap3, swap4: integer;
begin
  // Ввод четырехзначного числа
  write('Введите четырехзначное число: ');
  readln(number);

// а) Число, полученное при прочтении его цифр справа налево
  reverse := (number mod 10) * 1000 + ((number div 10) mod 10) * 100 + ((number div 100) mod 10) * 10 + ((number div 1000) mod 10);
  writeln('а) Число, полученное при прочтении его цифр справа налево: ', reverse);

// б) Число, образованное перестановкой двух первых и двух последних цифр заданного числа
  swap1 := (number mod 100) + ((number div 1000) mod 10) * 100;
  swap2 := ((number div 100) mod 10) * 1000 + (number div 10000);
  writeln('б) Число, образованное перестановкой двух первых и двух последних цифр заданного числа: ', swap1 + swap2);

// в) Число, образованное перестановкой первой и второй, третьей и четвертой цифр заданного числа
  swap3 := ((number div 1000) mod 10) * 1000 + ((number div 100) mod 10) * 10 + ((number div 10) mod 10) * 100 + (number mod 10);
  writeln('в) Число, образованное перестановкой первой и второй, третьей и четвертой цифр заданного числа: ', swap3);

// г) Число, образованное перестановкой второй и третьей цифр заданного числа
  swap4 := ((number div 1000) mod 10) * 1000 + ((number div 100) mod 10) * 10 + ((number div 10) mod 10) * 1000 + (number mod 10);
  writeln('г) Число, образованное перестановкой второй и третьей цифр заданного числа: ', swap4);
end.

Эта программа позволяет пользователю ввести четырехзначное число и выводит результаты для каждого из пунктов задачи.