FORUM
Pagina de start a forumului eggzit.3xforum.ro 		Lista Forumurilor Pe Tematici
FORUM | Reguli | Inregistrare | Login

POZE FORUM

Nu sunteti logat. 		Nou pe simpatie:
verona1991 pe Simpatie.ro
Femeie
25 ani
Iasi
cauta Barbat
26 - 62 ani
FORUM / Forum Nou / 19  
Autor
Mesaj Pagini: 1
eggzit
Username: 6R9PKQUKKU

Inregistrat: acum 20 ani
Postari: 215
{str.out un sir ce contine nr intre 1 si 2n}

type vector=array[1..1024] of integer;
var n,m,i:integer;
a:vector;
procedure sir(i:integer);
var p,j,x:integer;
begin
if i<=n then begin
p:=m div 2 +1;
for j:=m downto p do
a[j+m]:=a[j];
x:=m+1;
for j:=p to p+m-1 do begin
a[j]:=x;
x:=x+1;
end;
m:=m*2;
sir(i+1);
end;
end;
begin m:=2;
a[1]:=1; a[2]:=2;
write('n=');readln(n);
sir(2);
for i:=1 to m do write(a[i],' ');
readln;
end.
pus acum 18 ani
   
Pagini: 1  

Mergi la