Какое значение будет присвоено переменной k в результате выполнения оператора select type в следующем фрагменте программы ?type point integer x, yend type pointtype, extends(point) :: point_ex integer z integer color logical errorend type point_extype, extends(point_ex) :: point_phys real vx real vy real vz real tmend type point_phystype, extends(point_phys) :: point_mech character(32) name character(8) codeend type point_mechinteger kclass (*), pointer :: ptrtype (point_ex), target :: pt_exclass (point_phys), allocatable, target :: pt_phclass (point_mech), allocatable, target :: pt_mhallocate(pt_ph,source=point_phys(1,2,3,4,.true.,0.0,0.0,0.0,0.0))allocate(pt_mh,source=point_mech(5,6,7,8,.true.,0.0,0.0,0.0,0.0,"A","B"))ptr=>pt_ph select type (ptr) type is (point_ex); k=ptr.x class is (point); k=ptr.y class is (point_mech); k=ptr.color class default; k=0 end select ...
(Ответ необходимо ввести в поле ввода.)
Варианты ответа