program Tiskarna; var cislo : array[0..100] of char; var idx : integer; var znak : char; begin for idx:=0 to 100 do cislo[idx]:=chr(0); idx:=0; while not eoln do begin read(znak); if (znak=' ') then { Mezera znamená začátek další bankovky a víme, že a XOR 0 = 0, } idx:=0 { takže nemusíme "doXORovat" zbytek a můžeme jít hned na další } else begin cislo[idx]:=chr(ord(cislo[idx]) xor ord(znak)); inc(idx); end; end; write('Poslední vložená bankovka má kód '); idx:=0; while cislo[idx]<>chr(0) do begin write(cislo[idx]); inc(idx); end; writeln('.'); end.