************************
program n1; 
 uses Crt; 
 var a,b:array[1..5] of byte; 
 n,i,k,j,d:integer; 
begin 
 clrscr; 
 write('Введите пятизначное число: '); 
 readln(n); 
 a[5]:=n mod 10; 
 a[4]:=n div 10 mod 10; 
 a[3]:=n div 100 mod 100 mod 10; 
 a[2]:=n div 1000 mod 1000 mod 100 mod 10; 
 a[1]:=n div 10000 mod 10000 mod 1000 mod 100 mod 10; 
 writeln('Результат перестановки:'); 
 for d:=1 to 4 do 
 begin 
 write(d,') '); 
 for i:=1 to 5 do 
 begin 
 if i<5 then b[i]:=a[i+1]; 
 if i=5 then b[i]:=a[1]; 
 end;
 for j:=1 to 5 do 
 begin 
 write(b[j]); 
 a[j]:=b[j]; 
 end;
 writeln; 
 end; 
 write('Для выхода нажмите Enter'); 
 readln; 
end.


2010-10-25 • Просмотров [ 1155 ]