科学家新发现两种产氢细菌，某生化工程师想利用它门产制氢气。首先他要决定
选用哪种细菌较好，所以他要比较这两种微生物的生长速率，因此他在实验室里
以适当的两种培养基培养这两种微生物。他发现细菌 A 每 90 分钟会分裂一次，
而细菌 B则每70 分钟分裂一次。当然，也有一小部分的微生物会因种种原因而
死亡；细菌 A 的死亡率是每 900 分钟族群中的千分之一会死亡，而细菌 B 则是
每 200 分钟族群中的百分之一会死亡。假设实验开始时，在每种培养基里只有一
个细菌。写一个程式计算从开始至 24 小时止，每隔 2 小时，在培养基里的细菌
数目及两者的数量差异为何，同时对两者的生长速率做个结论。
上面是题目
目前我写出的程式码:
program main
implicit none
integer i,sumA,sumB
integer ::counter=1440
sumA=1
do i=90,counter,90
sumA=sumA*2
write(*,*)'细菌a的数目',sumA
end do
sumB=1
do i=70,counter,70
sumB=sumB*2
write(*,*)'细菌B的数目',sumB
end do
end
该怎么让她照题目的要求 每两个小时打印出结果
而不是照着细菌孳生的数目 ?

程式码跟题目完全没连上...

目前只写出这样我剩下的两个问题是让他每两个小时打印出结果跟把两个循环并成一行 好让结果跑出来是一行行的顺序在一起

模拟的题目就用模拟的作法吧，依照题目设置5个counter每次加1分钟，时间到就发生该发生的事，然后counter归零跑1440分，就完成你的作业了