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

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

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

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

Введите значение переменной name.

integer k1character(LEN=100) pathcharacter*11 name  path="C:\NUMERICAL\FLOW\RESULTS\Re100.txt"  k1=index(path,".txt")  path(k1:len(path))="_V1.txt"  k1=index(path,"Re")  name=path(k1:k1+10)

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

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

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

Дан массив integer C(10,20)Запись С(2,::3)=8 означает присвоить значение 8

Дан массив integer B(10,20)Запись B(:,:)=4 означает присвоить значение 4

Дан массив integer C(10,20)Запись С(1:10:2,:)=5 означает присвоить значение 5

Дан массив integer A(20,20)Запись A(:10:2,:)=5 означает присвоить значение 5

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

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