В головной программе используется модуль geom, который содержит только тип circle и модульную процедуру IncRadius. Головная программа использует модуль geom.В головной программе объявлена переменная type (circle) CR.
Укажите верное описание типа circle и процедуры IncRadius, чтобы при вызове call CR.IncRadius(10.0) из головной программы, поле R переменной CR было изменено.
type circle real, public :: x,y real, private :: R contains procedure :: IncRadiusend type circle(Верный ответ)
subroutine IncRadius(cr,dR) type(circle) cr real dR cr.R=cr.R + dRend subroutine IncRadius
subroutine IncRadius(dR) type(circle) cr real dR cr.R=cr.R + dRend subroutine IncRadius
type circle real, public :: x,y real, private :: R contains procedure, nopass :: IncRadiusend type circle
subroutine IncRadius(cr, dR) class(circle) cr real dR cr.R=cr.R + dRend subroutine IncRadius(Верный ответ)