返回首页

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

发布时间：2014-03-31 17:31:20

代码: 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

相关内容

最新内容

← 上一条：C语言程序题:对于一个大于或者等于3的正整数 下一条：H3C S系统交换机不同网段互访 →

热门栏目