Дан текстовый файл. Необходимо переписать его содержимое в другой текстовый файл, добавляя в начало каждой строки её порядковый номер (десятичную запись целого числа шириной в 5 символов, выровненную по правой границе поля) и пробел.

Question

Информатика

Вадюша

16 июня, 06:13

Дан текстовый файл. Необходимо переписать его содержимое в другой текстовый файл, добавляя в начало каждой строки её порядковый номер (десятичную запись целого числа шириной в 5 символов, выровненную по правой границе поля) и пробел.

+2

Ответы (1)

Знаете ответ?

Евдоким · Answer 1

Var t1, t2:text; s:string; n:integer;

begin

assign (t1,'t1. txt') ; reset (t1) ;

assign (t2,'t2. txt') ; rewrite (t2) ;

n:=0;

while not eof (t1) do begin

readln (t1, s) ;

n:=n+1;

writeln (t2, n:5,' ', s) ;

end;

close (t1) ; close (t2) ;

end.