Какое значение будет находиться в поле a переменной ex1 после вызова call ex1.solve() в следующей программе ?module mod_1 abstract interface integer function func(x) integer x end function func end interface type region integer, private :: a integer, private :: b procedure (func), pointer, nopass :: funct contains procedure solve end type regioncontains subroutine solve(rg) class(region) rg rg.a=rg.funct(rg.a) end subroutine solveend module mod_1program proguse mod_1type (region) ex1ex1.a=2; ex1.b=3; ex1.funct=>Fcall ex1.solve()containsinteger function F(x) integer x F=x*x+xend function FEND
(Ответ необходимо ввести в поле ввода.)
Варианты ответа