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

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

Найти нужный

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

Толя, Петя, Саша и Ваня заняли четыре места в велокроссе. На вопрос, какие места они заняли, мальчики ответили: А) Толя не занял ни первое, ни четверт... На сервере edu.ru находится файл demo.гаг, доступ к которому осуществляется по протоколу ftp. Фрагменты адреса данного файла закодированы буквами от... Укажите правильный вариант записи условия «х — двузначное числох div 10 <= 9 (х>=10) И (х<100) х div 100 = 0 х mod 100 = 99... Выберите фрагмент программы, в котором ищется произведение 1*2*3*4*5 p:=1; i:=1; while i<=5 do begin p:=p*i; i:=i+1; end; p:=1; i:=1; while i<=... Персонаж известной компьютерной игры Марио постарел и почти перестал прыгать. Но совсем недавно он увидел спуск из N ступенек, и его накрыло ностальги...