Выберите допустимые объявления модульных переменных для данного варианта программы module mod_Aimplicit none! здесь следует объявить модульные переменные public init_solver contains subroutine init_solver(val) real val x=val*sin(val)+A end subroutine init_solverend module mod_APROGRAM prog use mod_A, Anew => A, Bnew => B implicit none Bnew=1+Anew write(*,*) Bnew+Anew+X call init_solver(-1.0)end
(Ответ считается верным, если отмечены все правильные варианты ответов.)
Варианты ответа
integer, private :: A
integer, protected :: A(Верный ответ)
integer, protected :: B
real, protected :: X(Верный ответ)
integer, public :: B(Верный ответ)