program zDvojkove;
{ Program očekává na vstupu číslo zapsané ve dvojkové soustavě (jehož hodnota se vejde do integeru). }
var cislo : integer;
znak : char;
function jeCifra( c : char ):boolean;
begin
jeCifra := (c >= '0') and (c <= '1');
end;
begin
cislo:=0;
read(znak);
while ( jeCifra(znak) ) do
begin
cislo:=cislo*2 + ord(znak) - ord('0');
read(znak);
end;
writeln(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ů). ;)