Записать в новый файл соотвествующие символам ASCII коды исходного - Turbo Pascal

Формулировка задачи:

задан файл,содержащий произвольное кол-во строк,записать в новый файл соотвествующие символам ASCII коды

Код к задаче: «Записать в новый файл соотвествующие символам ASCII коды исходного - Turbo Pascal»

textual
...
While not EOF(f0) do
Begin
  Readln(f0,St);
  For i:=1 to Length(S) do Write(f1,Ord(S[i]));
End;
...
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

12   голосов, оценка 4.250 из 5


СДЕЛАЙТЕ РЕПОСТ