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

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

  1. Ответ
    Ответ дан Mepkypuu
    var k,om :integer;
    begin
    om:=1;
    for k:= 1 to 24 do
    if k mod 3 = 0 then
    begin
    om:=om*2;
    writeln('Через ',k,' часов - ',om);
    end;
    end.
Самые новые вопросы