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

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

Чему равно значение переменной 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)

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

  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.

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

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)

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

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

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

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

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)

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

integer function FX(x,y,z,A,B,C)    complex, intent(in)   :: x    logical, intent(out)  :: y    real z    complex, intent(in)   :: A(:)    character(*), intent(in) :: B(:)    real, intent(inout)      :: C(3)    ...  end function FX

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

complex xc, yc, zc, Z(50), W(50)  logical status, fс  real param, alfa, beta, gamma  character NAME(100)  real VEC(1000)  integer dummy

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

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

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