ReadLn(x);
i:=1;
while x<>0 do
begin
inc(i);
s:=s+chr(x mod 2+$30);
x:=x div 2;
end;
l:=Length(s);
for i:=1 to l div 2 do
begin
c:=s[i];
s[i]:=s[l+1-i];
s[l+1-i]:=c;
end;
writeln(s);
for i:=l to l+l do
begin
if (i mod 2=1) then
c:=s[i];
s[i]:=s[l+1-i];
s[l+1-i]:=c;
end;
if s[i]<>s[l-i+1] then writeln(s);
if (i mod 2<>1) then writeln('');
end.

Ну вот задачка но чото не правильно! Я уже запутался! Голова не варит! Помогите мне!

Добавлено (03.11.2008, 01:34)
---------------------------------------------
Ой я чото ните нажал вот код правильно?
For i := n to n+n do
Begin
If (i mod 2 = 1) then
Begin
ReadLn(x);
i:=1;
while x<>0 do
begin
inc(i);
s:=s+chr(x mod 2+$30);
x:=x div 2;
end;
l:=Length(s);
for i:=1 to l div 2 do
begin
c:=s[i];
s[i]:=s[l+1-i];
s[l+1-i]:=c;
end;
WriteLn(s);
end;
End;

Добавлено (03.11.2008, 01:58)
---------------------------------------------
Незнаю ну если вот етот код даже не наближен к действительности тогда я пас!
var x,l,i,n:longint;
c:char;
s:string;
begin
For i := n to n+n do
Begin
If (i mod 2 = 1) then
Begin
ReadLn(x);
i:=1;
while x<>0 do
begin
inc(i);
s:=s+chr(x mod 2+$30);
x:=x div 2;
end;
l:=Length(s);
for i:=1 to l div 2 do
begin
c:=s[i];
s[i]:=s[l+1-i];
s[l+1-i]:=c;
end;
for i:=1 to l div 2 do
begin
if s[i]<>s[l-i+1] then writeln (s);
end;
end;
end;
end.