Циклы с произвольным количеством шагов

[Walter]

Вечер! Изучать Делфи начал совсем недавно, и вот уже столкнулся с первой проблемой. С моим количеством знаний, эт задачка кажется не постяжимой, если можете помогите... Очень нужно.
А задачка следущая "Дано число. Отбросить в нём цифры, стоящие левее самой правой единицы". Заранее благодарен.

[Sm1Le]

если я правильно все понял то тут все легко ...
переводим в строку InttoStr, а теперь обычным перебором ищем 1 и отсекаем не нужную часть ...

[Stepler]

i:=0;
rez:=0;
while(n<>0)do
 begin
 o:=n mod 10;
 rez:=rez+o+i;
 if(o=1)then break;
 if(i=0)then i:=1;
 i:=i*10;
 n:=n div 10;
end;
n:=rez;

o- остача от деления на 10
n- собственно само число
rez- результат

[Walter]

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

Вот что у меня получилось, но выдаёт ошибку на последнем end. Обьясните, что я не так сделал?

Код:

 
procedure TForm1.Button1Click(Sender: TObject);
var i,n,rez,o:integer;
begin
 n:=StrToInt(Edit1.Text);
 i:=0;
 rez:=0;
  while (n<>0) do;
    begin
      o:=n mod 10;
      rez:=rez+o+i;
        if(o=1) then break;
        if(i=0) then i:=1;
      i:=i*10;
      n:=n div 10;
    end;
  n:=rez;
end.

[L_M]

надо поставить ; вместо точки
если и тогда будет ошибка, то надо дописать еще end. в самом конце всего

[puporev]

Ну и надо куда то вывести ответ, в Label или в Edit.

[Walter]

Кст, по поводу кода к задачке, тут походу алгоритм не совсем верный (хотя и mod, div и i:=i*10; нужны), мож прост рассположение их не такое, кто может разобраться и подправить, т.к. я пока не силён исправить. Заранее спасибо огромное!

[puporev]

Вот нормальный код, я его из паскалевской программы выдернул, лень переменные менять, доделай сам.

var n,m,k,t:integer;
begin
//здесь ввод N
m:=1;t:=n;
repeat
   k:=N mod 10;
   m:=m*10;
   n:=n div 10;
until k=1;
//здесь вывод('m=',t mod m)
end;
end.

while (n<>0) do;

Кстати, что это у тебя в коде так и написано, если да убери точку с запятой.

[Walter]

Спс, попробую доделать надо же чему то обучаться самому ^^

[Walter]

Так а у меня вопрос, а в этой задачке, тока мона с repeat или же while тож пойдёт? Пупорев, еси можешь покажи на премере с while. Спс заранее