fortran 编程求3到39之间满足下列条件的各组素数：每组有3个素数，第二个比第一个大2，第三

代码: program main implicit none integer::i,j,k integer::c(39),d(39) c(1)=3 k=1 do i=4,39 do j=2,i-1 if(mod(i,j)==0) goto 123 enddo k=k+1 c(k)=i 123 enddo write(*,*)'1到39的素数有' do i=1,k write(*,*)c(i) en