Weil mir langweilig war:
Delphi-Quellcode:
function IntToBin(IntNumber: Integer): string;
function OtherWayRound(s: string): string;
var
Loop: Integer;
begin
for Loop := length(s) downto 1 do
begin
result := result + s[Loop];
end;
end;
var
res: Integer;
begin
res := IntNumber;
while res <> 0 do
begin
result := result + IntToStr(res mod 2);
res := res div 2;
end;
result := OtherWayRound(result);
end;
Und das war wohl auch Sinn der Aufgabe, diesen Algorithmus umzusetzten. shr hätte wohl das Thema sowieso verfehlt.
Und was bekomme ich jetzt, außer einen feuchten Händedruck und dass dein Freund meine Lorbeeren einstreicht?
