Одноклеточная амеба каждые 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 (20 баллов). Найдите во Всемирной паутине ответы на следующие вопросы. Кто считается создателем компьютера? Кто является основоположником... В соревнованиях по ориентированию участвуют 768 спортсменов. Специальное устройтсво регистрирует финиш каждого из участников, записывая его номер с ис... Что защищает твой компьютер от вирусов и потери данных? 1) Обновление программ 2) Антивирусная программа 3) Фаервол 4) Обновление операционной си... На c++ пожалуйста Шифр Цезаря В шифре Цезаря каждый символ, являющийся буквой латинского алфавита, заменяется на другой символ, k-тый по счёту в алфа... Опишите процесс выполнения операторов присваивания а:=3; b:=4; а:=а+B...