5 байтов получится-----------------------------------------------------
Напиши, после каких действий это окно появилось? Из какого файла, программы?
Тут если переводить с английского, то read - читать x - неизвестный, а значит данная программа не может прочитать какую либо команду.Так же тут видно что программа много раз пыталась повторить команду и у нём это никак не получалось. Ответь на вопросы заданные мной выше и если я смогу прочитать их то отвечу)
если в алфавите 64 символа, то на каждый символ отводится по 6 бит информации (2^6 = 64).
Var
m:array [1..100] of integer;
t:text;
begin
assign(t,'input.txt');
reset;
for i:= to 100 do
readln(m[i]);
close(t);
assign(t,'output.txt');
rewrite(t);
for i:=1 to 100 do
if (m[i]div10<>m[i] mod 10)
then writeln(m[i]);
close (t);
end;