Задача Паскаль

[luckytox]

Всем привет.
Честно не особо разбираюсь в паскале,но стараюсь.Сегодня дали одну задачку.Условие такое:амеба каждые 3 часа делится на 2 клетки.сколько амеб будет через 3,6,9,12,15.Изначально была одна амёба
Я расписал вот так:

program ameba;
const n=15
var
a,i:integer;
begin
a:=1;
for i:=1 to N do
begin
a:=a*2;
writeLn (a,'ameb')
end.
Так вот,учительница придралась к задаче,но как назло я так и не понял ее объяснение.Хорошо запомнил,что она сказала про то,что в строчке for i to n do надо еще как-то step всунуть,но я не запомнил как.Помогите пж

[ZX Spectrum-128]

Что-то неправильно вы поняли. В паскале в цикле с параметром нет step. Шаг фиксированный +1(-1)

[luckytox]

Сообщение от ZX Spectrum-128

Что-то неправильно вы поняли. В паскале в цикле с параметром нет step. Шаг фиксированный +1(-1)

В чём же тогда ошибка была?

[ZX Spectrum-128]

Лень искать ошибку.
http://programmersforum.ru/showthread.php?t=87250

[Poma][a]

Ну как минимум 2 begin 1 end

program ameba;
const n=15
var
a,i:integer;
begin
a:=1;
step := 0;
for i:=1 to N do
begin
step := step+3;
a:=a*2;
writeLn (a,'амеб через ', step); 
end;
end.

[luckytox]

Сообщение от Poma][a

Ну как минимум 2 begin 1 end

program ameba;
const n=15
var
a,i:integer;
begin
a:=1;
step := 0;
for i:=1 to N do
begin
step := step+3;
a:=a*2;
writeLn (a,'амеб через ', step); 
end;
end.

Похоже это не то(

[Poma][a]

Почему это?
Изначально была 1 амеба.. Прошло 3 минуты.. их стало 2 Прошло 6 минут их стало 4.. все верно

[luckytox]

Сообщение от Poma][a

Почему это?
Изначально была 1 амеба.. Прошло 3 минуты.. их стало 2 Прошло 6 минут их стало 4.. все верно

Тогда ладно с этим степом.По другому эту задачу решить же можно?Без степов и т.д.,как у меня в начале темы?

[Poma][a]

вместо step пишешь i*3

[luckytox]

Сообщение от Poma][a

вместо step пишешь i*3

тогда вообще фигатень получается.Что-то я с этой задачей вообще в тупик зашёл(