program dva; {Kde je problem?}
{Ulozka na procviceni ladeni, ktera ocividne nedela to, co by mela.}
var cislo:integer;
procedure doDvojkove( a:integer );
var cifry:array[1..1000] of 0..1;
i,j : integer;
begin
i:=1;
while ( a > 0 ) do
begin
cifry[i]:=a mod 2;
a := a div 2;
end;
for j:=i-1 downto 1 do
write(cifry[i]);
end;
begin
read(cislo);
doDvojkove(cislo);
end.
Kdo byste našel v nějakém z těchto programů chybu, dejte mi to vědět - můžete tak získat bonusové body (1 chyba ≈ 5 bodů). ;)