Простые типы данных

[Bakasova]

Пусть a0=a1=1; a[k]=a[k-1]+(a[k-1]/2^k-1) , где k = 2, 3, …
Найти произведение a0 *a1 *…*an.

Как ее решить с помощью простых типов данных. Я смогла только с помощью массивов.

Program Blok2;
Uses crt;
Var a: array [0..100] of real; i,n,t: integer; b: real;
Begin clrscr;
Writeln ('ўўҐ¤ЁвҐ зЁб«®');
Readln (n);
a[0]:=1;
a[1]:=1;
t:=1;
     For i:=2 to n do
         Begin
t:=t*2;
a[i]:=a[i-1]+a[i-1]/t;
end;
b:=1;
for i:=0 to n do
b:=b*a[i];
writeln (b);
readln;
end.

[Alex11223]

А вы уверены, что правильно записали формулу?

Например, как-то так:

last_a:=1; s:=1;
for k:=2 to n do
begin
   t:=t*2;
   a:=last_a+last_a/t;
   s:=s*a;
   last_a:=a;
end;

Не проверял, возможно где-то допустил ошибку, но в общем надеюсь поняли мысль.