Одноклеточная амеба каждые 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

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

Найти нужный

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

Какую структуру имеет программа,записанная на языке Паскаль?... Известно, что 1 миля = 7 вёрст, 1 верста = 500 саженей, 1 сажень = 3 аршина, 1 аршин = 28 дюймов, 1 дюйм 25,4 мм. Пользуясь этой информацией, составьт... Для чего предназначен буфер обмена? а) для длительного хранения нескольких фрагментов текста и рисунков б) для временного хранения копий фрагментов и... Что больше терабайта ответь плиз кто нибудь... Рассчитайте размер файла, содержащего графическое изображение размером 256х128 пикселей, сохраненного как: а. монохромный рисунок: б. 16-цветный рису...