Дан файл символьного типа. Распечатать коды ASC11 записанных в него символов двумя способами

Дан файл символьного типа. Распечатать коды ASC11 записанных в него символов двумя способами
Гость
Ответ(ы) на вопрос:
Гость
var   f: Text;   i: integer;   c: char;    begin   Assign(f, 'in.txt');   Reset(f);      while not (EOF(f)) do   begin     read(f, c);     writeln(c, '   ', ord(c));   end;      writeln('===================');   reset(f);      while not (EOF(f)) do //Второй способ, перебором получить код   begin     i := 0;     read(f, c);     repeat       i := i + 1;     until (chr(i) = c);     writeln(c, '   ', i);   end; end.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы