Помогите пожалуйстаа!Одноклеточная амёба...

Тема в разделе "Информатика", создана пользователем famiday, 17 янв 2010.

  1. famiday

    famiday New Member

    Помогите пожалуйстаа!Одноклеточная амёба каждые 3 часа делится на 2 клетки.Определить сколько амеб будет через 3,6,9...24 часа.Составить программу наязыке Паскаль.
     
  2. Dilet_ant

    Dilet_ant New Member

    program amoeba; 

    var i,count:integer; 
    begin 
    i:=3; //количество часов 
    count:=1; //количество амеб 
    while i < = 24 do 
    begin 
    count:=count*2; //каждые 3 часа количество амеб удваивается 
    writeln(i,' hours: ',count); //выводим кол-во часов и амеб 
    i:=i+3; 
    end; 
    readln; 
    end.
     

Поделиться этой страницей

Наша группа