Чему равно значение переменной param в конце работы фрагмента программы?

implicit noneinteger :: param=1integer(2) scalar  associate (param=>10)    scalar=param+1    param=param+1  end associate param=param+1

Чему равно значение переменной param в конце работы фрагмента программы?

implicit noneinteger :: param=1integer(2) scalar  associate (param=>10)    scalar=param+1  end associate param=param+1

Чему равно значение переменной param в конце работы фрагмента программы?

implicit noneinteger paraminteger(2) scalar  associate (sparam=>10)    scalar=sparam+1    param=param+1  end associate param=param+1

Чему равно значение переменной betta? Переменные tk, param, s0, betta – целые двухбайтовые.

param=5 + 9/4 + mod(9,4)param=-param/2s0=2**3**2tk=s0/parambetta=sign(s0,tk)

Какое значение содержит ссылка ptr1 в конце работы фрагмента программы?

    integer, pointer :: ptr1, ptr2  integer, target :: value = 300, param = 500  value=value*10  ptr1=>param  ptr2=>value  ptr1=ptr2+1  param=param*10 

Объявлена подпрограмма

recursive subroutine proc(param, p, A, B, C)    real param    logical p    real A(:), B(:), C(:)    ...  end subroutine proc

Какие вызовы подпрограммы являются верными, если real X(1000), Y(1000), Z(1000)

Объявлена подпрограмма

  subroutine InitST(name, stat, param, index, vector)    character(*) name    logical stat    real param    integer index    complex vector(1000)    ...  end subroutine InitST

Какие вызовы подпрограммы являются верными, если complex Z(1000)

Объявлена подпрограмма

subroutine GetIndicator(param, var, gr1, gr2, val)    logical, intent (out) :: param     real, intent (out)    :: var(:)    integer(1), intent (in)   :: gr1    integer(2), intent (out)  :: gr2    complex(16), intent (in)  :: val    ...  end subroutine GetIndicator

Какие вызовы подпрограммы являются верными, если

logical ST(10), dum  real A(100), B(100), C(100)  integer(2) kf1, kf2  complex(16) R(200)

Объявлена функция

  character function CH(str, N, status, param, maska)    character(*), intent(in) :: str    integer, intent(inout)   :: N    integer, intent(out)     :: status    character, optional, intent(out) :: param    logical,   optional, intent(in)  :: maska(:)    ...  end function CH

Какие вызовы функции являются верными, если

character(128) adr  integer, parameter :: N=7000  integer i  character symbol  logical  ::  mask(100) = .TRUE.

Что можно сказать о следующих строках удачно скомпилированной программы ?

write(1,"(i4)",rec=100) param  rewind(1)

Выберите верные утверждения

Данный оператор

write(1, "(e9.3)") param

может быть записан для файла