Program abc;
uses crt;
const
n=10;
var
b:array[1..n] of real;
i:integer;
begin
b[1]:=0.5;
b[2]:=0.2;
for i:=2 to n-1 do
begin
b[i+1]:=b[i]*2 + b[i-1]/n;
writeln('b[',i+1,'] = ',b[i+1]);
end;
readln;
end.
Добрый день. Меня заинтересовал ваш ответ "Program abc;
uses crt;
const
n=10;
var
b:array[1..n] of real;
i:integer;
begin
b[..." на вопрос http://www.liveexpert.org/topic/view/156380-reshit-zadachu-v-paskale-cherez-rekursiyu. Можно с вами обсудить этот ответ?