Mayusnoka
5 год назад
ПОМОГИТЕ РЕШИТЬ ПО ПАСКАЛЮ.С ПОЛНЫМ РЕШЕНИЕМ Дано четырехзначное число. Найти:
а) число, полученное при прочтении его цифр справа налево;
б) число, образованное перестановкой двух первых и двух
последних цифр заданного числа. Например, из числа 4566
получить 6645, из числа 7304 — 473;
в) число, образованное перестановкой первой и второй,
третьей и четвертой цифр заданного числа. Например, из чис
ла 5434 получить 4543, из числа 7048 — 784;
г) число, образованное перестановкой второй и третьей
цифр заданного числа. Например, из числа 5084 получить
5804.
ОТВЕТЫ
Вадим
Aug 11, 2019
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
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
93
