Введите значение подстроки str(1:6) в конце работы фрагмента программы

character(5), parameter :: s1="start"character(15) str  str=repeat("MOV",5)  str(9:13)=s1  str(3:7)=str(10:14)

Введите значение подстроки str(5:12) в конце работы фрагмента программы

character(LEN=50) :: str="coirh8euncoewfg8uwbdniwnbd"   str=repeat("File",5)   str(5:7)=achar(80)//achar(81)//achar(82)

Введите значение подстроки buf(1:7) после выполнения фрагмента программы

 character buf*30, name*5, ex*3buf="abcxwyz1234567890"name=buf(1:5) ex=buf(4:6)buf=name//ex

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

  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.

Введите значение подстроки buf(3:k1) после выполнения фрагмента программы (^ - означает пробел).

integer k1character(LEN=50) bufbuf="^^^^^abcxwyz1234567890"buf(5:10)="XSAMFF"buf=adjustl(buf)k1=index(buf,"12")

Чему равно значение переменной pos в конце фрагмента программы? Переменные a, b, c, pos - целые четырехбайтовые.

a=2;  b=3;  c=5b=b/2*2c=b**bpos=a+b+c/3+1+2**bpos=-pos

В головной программе описаны переменные

complex, parameter :: k=(0.0,1.0)  integer s1,s2  real A(100,100)  logical :: MASK(2,2,3,3,4,4,5)=.TRUE.  character, pointer :: pcA, pcB  character, target ::  str1, str2

Какие из них доступны во внутренней функции F ?

  real function F(str1, str2, x, y, z, QW) result(A)    logical MASKA(2,2,3,3,4,4,5)    complex k    integer(1) s1    ...  end function F

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

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

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

implicit noneinteger :: param=1integer(2) scalar  associate (param=>10)    scalar=param+1    param=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

В головной программе описаны переменные

character(64), parameter :: NAME = "C:\DATA\FLOW\SWIRL\V1"  real, pointer :: p1, p2  real, target  :: T(1000)  logical flag(10)  complex(16) C1, C2

Какие из них доступны во внутренней подпрограмме proc ?

subroutine proc(C1, C2, flags)    real(4), intent(out)  :: C1    complex(16), intent(out) :: C2    character(*), optional, intent(in) :: flags    real, pointer :: p1    ...  end subroutine proc