Какие из фрагментов программ не содержат рекурсивные вызовы
(Ответ считается верным, если отмечены все правильные варианты ответов.)
Варианты ответа
write(*,*) func(10)...contains recursive function func(k) integer A(10), k A(k)=k*A(k-1) func=A(k-2) end function func(Верный ответ)
write(*,*) st(st(a,b))...contains recursive function st(x,y) st=1.0+x*xy+y end function st(Верный ответ)
write(*,*) Q(10)...contains function P(B) real B P = 2 + B end function P function Q(A) integer A Q = P(2.0*A) end function Q(Верный ответ)
contains function func(a) real a a = proc(2.0) func = a**2 end function func function proc(b) real b proc = 2+b end function proc(Верный ответ)
contains recursive real function f(x) integer x f = P(x)*f(x-1) end function f function P(y) integer y P = 2 ** y end function P