Для открытия файла в режиме асинхронного ввода/вывода следует использовать спецификатор

Правильный ответ:

• # Введите значение подстроки buf(3:k1) после выполнения фрагмента программы (^ - означает пробел). integer k1 character(LEN=50) buf buf="^^^^^abcxwyz1234567890" buf(5:10)="XSAMFF" buf=adjustl(buf) k1=index(buf,"12")
• # Какие операторы выполняют преобразование массива A(Mi,Mj) (см. рисунок)(Mi=7, Mj=7) ? \underbrace{\begin{pmatrix} 1 & 1 & 1 & 1 & 1 & 1 & 1 \\ 2 & 2 & 2 & 2 & 2 & 2 & 2 \\ 3 & 3 & 3 & 3 & 3 & 3 & 3 \\ 4 & 4 & 4 & 4 & 4 & 4 & 4 \\ 5 & 5 & 5 & 5 & 5 & 5 & 5 \\ 1 & 1 & 1 & 1 & 1 & 1 & 1 \\ 2 & 2 & 2 & 2 & 2 & 2 & 2 \\ \end{pmatrix}}_\text{исходный A} \underbrace{\begin{pmatrix} 1 & 1 & 1 & 1 & 1 & 1 & 1 \\ 2 & 2 & 2 & 2 & 2 & 2 & 2 \\ 0 & 0 & 0 & 3 & 3 & 0 & 0 \\ 4 & 4 & 4 & 4 & 8 & 4 & 4 \\ 5 & 5 & 5 & 5 & 8 & 5 & 5 \\ 1 & 1 & 1 & 1 & 1 & 1 & 1 \\ 2 & 2 & 2 & 2 & 2 & 2 & 2 \\ \end{pmatrix}}_\text{преобразованный A}
• # Укажите верные утверждения. Процедуры бывают следующих типов
• # Дана подпрограмма subroutine proc(a,b,N,func) interface real function func(x) real x end function func end interface real, intent(in) :: a,b integer, intent(in) :: N write(*,*) func(a+b*N) end subroutine proc Выберите верные вызовы, если real function f(x) real x f=sqrt(x)+cos(x)+(1.0,1.0) end function f real function S(x,y) real x,y S=10000*x*y end function S recursive function fr(x) real x if ((x-1)<0) then fr=1.0 return end if fr=sin(x)+cos(x)+fr(x-1) end function fr
• # Выберите процедуры, которые устанавливают текущий цвет в проекте Standard Graphics