Var a,a1,a2,a3,a4,a5,b:integer;
begin
write('a = ');
readln(a);
a1:=a div 10000;
a2:=a div 1000 mod 10;
a3:=a div 100 mod 10;
a4:=a mod 100 div 10;
a5:=a mod 10;
b:=a5*10000+a4*1000+a3*100+a2*10+a1;
writeln('b = ',b);
end.
Пример:
a = 13524
b = 42531
Существуют Линейный, Циклический и Разветвляющийся алгоритмы. Прямого - нет
Егерь Семен, художник Роман, тренер Николай, врач Артур
Сори
конечно, это для меня оч сложно((
Зайди ко мне и помоги мне, пожалуйста, мне очень очень срочно нужно..
заранее спасибо!)