Одноклеточная амеба каждые 3 часа делится на 2 клетки. Определить сколько амеб будет через 2, 6, 9, 12, ..., 24 часа? Составить программу в паскале с помощью цикла repeat.
for hours := 2 to 24 step 3 do begin amoebas := amoebas * 2; writeln('Через ', hours, ' часов будет ', amoebas, ' амеб.'); end; end.
{ Результат выполнения программы: Через 2 часов будет 2 амеб. Через 6 часов будет 8 амеб. Через 9 часов будет 16 амеб. Через 12 часов будет 32 амеб. Через 15 часов будет 64 амеб. Через 18 часов будет 128 амеб. Через 21 часов будет 256 амеб. Через 24 часов будет 512 амеб. }
program AmebaDivision;
var
amoebas, hours: Integer;
begin
amoebas := 1;
for hours := 2 to 24 step 3 do
begin
amoebas := amoebas * 2;
writeln('Через ', hours, ' часов будет ', amoebas, ' амеб.');
end;
end.
{ Результат выполнения программы:
Через 2 часов будет 2 амеб.
Через 6 часов будет 8 амеб.
Через 9 часов будет 16 амеб.
Через 12 часов будет 32 амеб.
Через 15 часов будет 64 амеб.
Через 18 часов будет 128 амеб.
Через 21 часов будет 256 амеб.
Через 24 часов будет 512 амеб.
}