Добавлено (27.10.2008, 21:40)
---------------------------------------------
2 и 3 задачу даже мисли нет !! Двоичную систему я не знаю! а 3 задача ти даже не обяснил!(помоги тебе што тежело)! Или как всекда Секюлера ждать!

Добавлено (28.10.2008, 08:42)
---------------------------------------------
Ой извеняюсь 2 осталось но они тежолие!

Добавлено (28.10.2008, 09:28)
---------------------------------------------
в 2 задаче у меня выбивает только 11 когда я ввоу 3 , а должно вибивать
11
101
ну вот смотри:
var x:longint;
i,l:integer;
s:string;
c:char;
begin
i:=1;
readln(x);
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.
А в 1-ой задачке щитает все числа ! И палиндромы и не палиндромы! И еще одна просьба не могли би ви писать задачки без оттаких функций как "uses crt; ClrScr; ReadKey;" потому што нам не разришаеться пользоваться такими функцыями! И еще, Что означает эта функция "Str(x,s);"

Добавлено (28.10.2008, 09:30)
---------------------------------------------
1-ая задачка
var
i,k,l:byte;
x:longint;
s:string;
test:boolean;
begin
k:=0; repeat
readLn(x);
if (x>2000000000) or (x<1) then
break;
l:=length(s);
test:=true;
for i:=1 to l div 2 do
if s[i]<>s[l-i+1] then
begin
test:=false;
break;
end;
if test then
Inc(k) else k:=k+0; until 1=0;
WriteLn(k);

end.

Добавлено (28.10.2008, 19:27)
---------------------------------------------
Seqular, Alexander, может ви мне поможете!

Добавлено (29.10.2008, 12:07)
---------------------------------------------
Seqular, Ну помоги мне пожалуста!

Str(x,s);
l:=length(s);
test:=true;
for i:=1to l div 2 do
if s[i]<>s[l-i+1] then
begin
test:=false;
break;
end;
if test then
inc(k);
if (k>0) then writeln(s) else write('');
end.
Здвиги уже есть потомушто когда вводил 3 то выдавало 11, а сейчас выдайот
11
0
Подскажы в чом проблема!