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

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

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


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


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


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.
Вот написал под ваше условие!


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