Помогите с задачкой с числом "перевёртыша"

[Lenux]

Опытные программисты помогите пожалуйста решить задачку на Delphi 7.

<Вводится число. Совпадает ли оно со своим "перевертышем" (числом, получающимся при чтении данного наоборот).>

желательно Application, но даже если в консольной я разберусь, главное суть, и последовательность решения. Заранее большое вам спасибо.

[fbus]

представь введенное число как string и вперед

[Lenux]

спасибо, с этой задачей справился. Теперь проблемы с другой задачей <Дано натуральное число. Верно ли, что в его десятичной записи есть шесть единиц подряд? > Её тоже надо зделать как Application, помогите пожалуйста, выведите меня на верный путь.

[profi]

Я думаю нужно сделать так:

if Pos(s,'111111')<>0 then // если в строке находим 6 единиц тогда
begin
val(s,x,err); // пытаемся преобразовать строку в число
if err=0 then // если преобразовали тогда все впорядке
writeln('Yes!');
end
else
writeln('No!');

[Lenux]

Спасибо, это вариант, а использую цыклы возможно составить?, потому что "Pos" мы ещё не проходили.

[Chudo4258]

Вводится число. Совпадает ли оно со своим "перевертышем" (числом, получающимся при чтении данного наоборот).

readln(n);
k:=n;
p:=0;
while k<>0 do
 begin
  p:=p*10+(k mod 10);
  k:=k div 10;
 end;
writeln(p=n);

[Lenux]

Сообщение от Chudo4258

readln(n);
k:=n;
p:=0;
while k<>0 do
 begin
  p:=p*10+(k mod 10);
  k:=k div 10;
 end;
writeln(p=n);

спасибо. если вас не затруднит помогите пожалуйста с другой задачей, или хотя бы подайте идею, как возможно решить эту задачу:

<Дано натуральное число. Верно ли, что в его десятичной записи есть шесть единиц подряд?>

[Chudo4258]

Примерно как-то так, в паскале не проверял...

readln(n);
k:=0;
q:=false;
while n<>0 do
begin
 p:=n mod 10;
 n:=n div 10;
 if p=1 then inc(k) else k:=0;
 if k=6 then begin
                    writeln('Да');
                    q:=true;
                 end;
end;
if not(q) then writeln('НЕТ');

[LeBron]

Надо еще приклеить метку или флажок, а то так и будет всегда выводить "нет".
З.Ы.
Вот теперь нормально.