FORUM
Pagina de start a forumului eggzit.3xforum.ro
|
Nou pe simpatie:
mary24
 | Femeie
24 ani
Braila
cauta Barbat
25 - 56 ani |
|
|
FORUMReguliInregistrareLoginPozeNu sunteti logat. Lista Forumurilor Pe Tematici
|
| #1 |
 eggzitUsername: 6R9PKQUKKU
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.
|
|
| |
|
