Begin
writeln('Привет, начинающий программист, тебя приветствует Pascal');
end.
Через 3 часа - 2 клетки.
Через 6 часов - 4 клетки.
Через 9 часов - 6 клеток.
Через 12 часов - 8 клеток.
Через 18 часов - 12 клеток.
Через 24 часа - 16 клеток.
Алгоритм: кол-во ЧАСОВ делим на 3 часа и умножаем на 2 клетки.
Например: 48:3=16 и 16×2=32; то есть через 48 часов будет 32 клетки.
Пока s<=1000 выполняем действия:
S=s*3 и n=n+3
Выводим в конце n
Получается
1) s=1*3=3, n=0+3=3 и в следующем шаге подставляем уже эти значения
2) 9, 6 в следующем шаге подставляем уже эти значения и т.д.
3) 27, 9
4) 81, 12
5) 243, 15
6) 729, 18
7) 2187, 21
S>1000 и происходит выход из цикла
Ответ: 21