Дано число. Отбросить в нем все цифры, стоящие левее самой правой единицы.

[SkApY]

Народ помогите решить задачку

Дано число. Отбросить в нем все цифры, стоящие левее самой правой единицы. (Её нужно либо через while либо через repeat until)

[Alex Cones]

While Pos('1',S)<>1 do Дальше сам

[SkApY]

ммм какбы это я мог и сам сделать,но всё равно спс.)

[SkApY]

Народ ну помогите,очень срочно нужнооо

[Lemo]

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

  var
  st:string;
  i:integer;
begin
write('Enter number: ');
readln(st);
i:=0;
while i<length(st) do
 begin
   if st[i]='1' then
   begin
    Delete(st,1,i);
    i:=0;
   end;
     inc(i);
 end;
 writeln;
 write('Result: ',st);

readln;
end.

Вот написал под ваше условие!

[SkApY]

спсбки огромное