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

Питон не учил (учил си шарп, плюс плюс, и паскаль), но принцип такой:

24/3=8 (нашли значение для цикла)

присваиваем переменной значение 0 (это делается до цикла) (далее эта переменная a), затем создаем цикл в котором и будит все программа (он повторяется 8 раз).

a+=3 или a=a+3, ну это как там у вас в питоне)

это действие повторяется каждый цикл (8 раз)

далее мы заранее созданной переменной ещё до цикла присваиваем значение 1.

Затем мы каждый цикл присваиваем этой переменной значение b=b*2

И потом выводим b на экран вместе с a и подписью "часа".

В паскале это выгядело бы так:

begin

a:=0;

b:=1;

for i:=1 to 8 do

begin

 a:=a+3;

 b:=b*2;

 Writeln (b,"_за_",a,"_часа");

end;

end.

290*39*67=757770 - всего символов

для кодирования  757770 символов потребуется   757770 байтов

757770байт < 1,44    мбайт

да, книга поместиться на дискетку

паскаль:

uses crt;

var a,b: string; \ а-слово ,b-символ

i: integer; \ переменная для счета

begin

writeln ('слово и символ');

readln (a,b); \\ввод данных

for i: =1to length(a) do if copy (a,i,1)=b then writeln (i); \\копирование по порядку символов слова а   и сравнение каждого с символом b. вывод ответа. или ответов 

readkey; \\если символы в слове повторяются

end.