Pomogite s zadachami po ciklam

[Дина]

pomogite reshit zadachi. A to ja ne poimu ni uslovie, ni to kak reshat zadachu.Spasibo ogromnoe

[Ozerich]

Не знаю как вы но я не вижу условия

[Дина]

Dolgen bit vlogen file

[Greblin]

Условие уточните. Оно некорректно сразу в трёх местах: не задано a(1), не задано a(2), не корректна формула, а именно этот кусок

a(i) = a(i) - ...

[Sazary]

Дина Условие в том виде, в каком оно описано в файле просто невозможно читать!
Понял так: a[1]=1,a[2]=1.5
a[i]=a[i-1]*a[i-2] + 1

uses crt;
var
m : integer;
a : real;
function f(k : integer) : real;
 begin
 if k=1 then f := 1
 else if k=2 then f := 1.5
 else f := f(k-1)*f(k-2) + 1;
 end;

begin
clrscr;
write('Enter m: ');
readln(m);
a := f(m);
writeln('a(',m,')= ',a:7:4);

readln;
end.

[Дина]

Дина Условие в том виде, в каком оно описано в файле просто невозможно читать!

Вот и я удивляюсь.А такие задачи дают в институте