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

1 ответ

Посмотреть ответы

Megamozg

2205

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.

Хороший ответ

29 декабря 2022 10:57

Остались вопросы?

Найти нужный

Еще вопросы по категории Информатика

(Math.sqrt(Math.pow(x1-x2,2)+Math.pow(y1-y2,2)));... рисунок размером 64 на 64 пикселей подготовили в палитре, использующей 15 цветов. Какой объем в Кбайтах имеет этот рисунок?... Расставьте порядок действий и вычислите значения логических выражений, если А=0, B=1, C=0, D=1 не А или не В и С = 1 А или не (В или C) и не D = н... Объясните я не понимаю такие задачи))) Статья, набранная на компьютере, содержит 48 страниц, на каждой странице 40 строк, в каждой строке 64 символа.... Каких требований следует придерживаться при выборе имён для различных объектов языке Паскаль?...