profile
Опубликовано 5 лет назад по предмету Информатика от irina1337

Одноклеточная амеба каждые 3 часа делится на 2 клетки. Определить сколько будет амеб через 3,6,9,12, .... 24 часа (pascal)

  1. Ответ
    Ответ дан fofgogjoj
    program fofgogjoj;
    var    
    amebi:integer;    
    i:integer;
    begin    
    amebi:=1;    
    for i:=1 to 24 do      
    begin      
    if i mod 3 = 0 then          
    begin          
    Write('Время ',i,' ');          
    amebi:=amebi*2;          
    Write('Амебы ',amebi);          
    writeln;      
    end;      
    end;    
    end.
Самые новые вопросы