Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var x, y : Integer;
result, c : String;
begin
x:=StrToInt(Edit1.Text);
repeat
begin
x DIV 2:= x;
x MOD 2:= y;
c:=IntToStr(y);
result:=copy(c,1,1);
end;
until x=0;
edit2.Text:=(result);
hier hab ich mal ausprobiert, wie es gehen könnte, aber das funktioniert nicht. könnt ihr mir bitte, bitte helfen!!