Изменить решение задачи

@s2go1041 · Регистрация: 27.10.2015

Author24 — интернет-сервис помощи студентам

Всем привет!
Была у меня задачка: одноклеточная амёба каждые 4 часа делится на 2 клетки. Определить, сколько амёб будет через 3, 6, 9, 12, .., 24 часа.
Решил её так:

Pascal

program labv;
var counter: integer;
a: array [1..24] of integer;
begin
a[1]:=1;
for counter:=1 to 24 do
begin
if a[counter]<>1 then a[counter]:=a[counter-1];
if counter mod 4 = 0 then a[counter]:=(a[counter])*2;
end;
for counter:=1 to 24 do begin
if counter mod 3 = 0 then begin 
write('Амёба в ' , counter, ' час деления: '); writeln(a[counter], ' '); end;
end;
end.

Преподавателя не устроили массивы. Нужно реализовать решение без их использования. Допускаются циклы, условия, математические формулы типа экспоненты и прочая грязь.
На выводе надо получить:

Амёба в 3 час деления: 1

Амёба в 6 час деления: 2

Амёба в 9 час деления: 4

Амёба в 12 час деления: 8

Амёба в 15 час деления: 8

Амёба в 18 час деления: 16

Амёба в 21 час деления: 32

Амёба в 24 час деления: 64

Помогите, пожалуйста. Заранее спасибо!

@Puporev · 20.12.2015, 22:31

Pascal

var a,i:integer;
begin
a:=1;
i:=0;
while i<=24 do
 begin
  i:=i+1;
  if i mod 4=0 then  a:=a*2;
  if i mod 3=0 then  writeln('Амёба в ' , i:2, ' час деления: ',a:2);
 end;
end.

	20.12.2015, 22:31