Фрагмент программы преобразует файл vector.txt - Ответ на вопрос по Прог №1165771

Вопрос

Фрагмент программы преобразует файл vector.txt ^^^1^^^4^^^5^^^8^^^9^^^0^^^7 в файл spisok.dat с данными 0001000400050008000900000007.Введите номера строк, разделяя ; в порядке выполнения программы 1) open(1,file='vector.txt', access='direct', recl=1, form='formatted') 2) read(1,"(A)",rec=k) ch3) do k=1,284) character ch5) end do6) if (ch=='^') write(1,"(A)",rec=k) '0'7) ires = RENAMEFILEQQ ('vector.txt','spisok.dat')

• 4;1;3;2;6;5;7
• 7;5;4;6;3;1;2
• 4;2;1;3;6;7;5
• 4;7;6;3;2;5;1

Ответ