Перегрузка операции присваивания реализуется при помощи оператора

Перегрузка операции деления реализуется при помощи оператора

Перегрузка процедур объявляется при помощи операторов

Процедурные указатели объявляются при помощи оператора

Неограниченно полиморфная переменная объявляется при помощи оператора

Описан модуль, который подключен к головной программе

module mod_1 integer, public :: A=1,B=1,C=1 integer, protected :: D=5, E public  F, init contains   subroutine init_D_E(x,y)     integer x,y     D=X*10; E=Y*2   end subroutine init_D_E   integer function F     F=A+D+E   end function Fend module mod_1        

Какой результат вернет функция F после выполнения операции присваивания A=A+D в головной программе ?

Описан модуль, который подключен к головной программе

module mod_1 integer, protected :: A=1,B=2,C=3 integer, public :: D=7, E=8 public  F, init contains   subroutine init(x,y)     integer x,y     A=x+y   end subroutine init   integer function F     F=A+D+E-C   end function Fend module mod_1        

Какой результат вернет функция F после вызова процедуры callinit(1,2) и выполнения операции присваивания E=A+B в головной программе ?

Внешние процедуры объявляются после оператора

Определение типа полиморфной переменной происходит посредством оператора

Финальные процедуры объявляются при помощи атрибута

Наследование производных типов осуществляется при помощи атрибута