var N,dt,t,s,d,e:integer;
begin
writeln('Введите число');
readln(N);
dt:= N div 10000;
t:= N div 1000 mod 10;
s:= N div 100 mod 10;
d:= N div 10 mod 10 ;
e:= N mod 10;
N:= dt*10000+d*1000+e*100+t*10+s;
print(N);
end.
Поделитесь своими знаниями, ответьте на вопрос:
В пятизначном числе поменяйте местами цифры единиц и сотен, тысяч и десятков.
var N,dt,t,s,d,e:integer;
begin
writeln('Введите число');
readln(N);
dt:= N div 10000;
t:= N div 1000 mod 10;
s:= N div 100 mod 10;
d:= N div 10 mod 10 ;
e:= N mod 10;
N:= dt*10000+d*1000+e*100+t*10+s;
print(N);
end.