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

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

Введите значение подстроки 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)

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

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

Введите значение подстроки 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

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

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

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

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

enum, bind(C)  enumerator :: apple=1   enumerator pear  enumerator :: lemon=5  enumerator orange  enumerator kiwi  enumerator :: grapes=7end enuminteger :: fruits=-1fruits=orange*3-pear+lemon+kiwi+grapes

Фрагмент программы преобразует файл 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')