масив чисел

From

Alexey Burdin (2:5012/2.89)

To

Igor Kasyanchuk

Date

2003-01-04T18:45:36Z

Area

RU.ALGORITHMS

> from: /Unknown/
Как после вчерашнего, Igor ?

    var s:string;
        i,n:longint;
        a:array [1..10] of integer;
    begin
       s:='0123456789';
       n:=random(2*3*4*5*6*7*8*9*10); {номер перестановки}
       for i:=1 to 10 do
       begin
          a[11-i]:=(n mod i)+1;
          n:=n div i;
       end;
       for i:=1 to 10 do
       begin
          n:=a[i];
          a[i]:=ord(s[a[i]])-48;
          delete(s,n,1);
       end;
    end. (C) 2002 Megabyte

 IK>  + Origin: Юзер, чайник, програмист, хакер...Кто ты ? (2:4623/55.90)
    А кто ТЫ?
                Всего хорошего. Alexey.
... А что подyмал кpолик, никто не yзнал,
--- потомy что кpолик был очень воспитанный.
 * Origin: You're face to face To the man who sold the world (2:5012/2.89)