Меню сайта

Задача №11

Имеется n бактерий красного цвета. Через 1 такт времени -красная бактерия меняется на зелёную, затем через 1 такт -времени делится на красную и зелёную. Сколько будет всех -бактерий через k тактов времени?


Program for_11-

uses crt-

var i,k,n,z,nz,nk:longint-

begin

clrscr-

write(‘кол-во бактерий:’)-readln(n)-

write(‘кол-во тактов времени:’)-readln(k)-

z:=0-

for i:=1 to k do

begin

nz:=0-

nk:=0-

nz:=nz+z-

nk:=nk+z-

nz:=nz+n-

n:=nk-

z:=nz-

end-

n:=z+n-

writeln(‘Число бактерий=’,n)-

readln-

end.

Категория: Циклы | Дата: 19.11.12

Меню раздела
Блок