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

Вопрос

Фрагмент программы преобразует файл vector.txt ^^^1^^^4^^^5^^^8^^^9^^^0^^^7 в файла spisok.dat с данными 0001000400050008000900000007.Введите номера строк, разделяя ; в порядке выполнения программы 1) read(1,"(A4)",rec=k) ch2) end do3) character ch*44) do k=1,75) write(1,"(A4)",rec=k) ch6) ch(1:3)='000'7) open(1,file='vector.txt', access='direct', recl=4, form='formatted')

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

Ответ