Помогите плиз!!! 15 баллов! Дана такая хрень: 1+2+5+8+13... То есть, прибавляем предыдущее число. Пользователь вводит сколько должно быть чисел в ряду, а программа должна посчитать сумму. Напишите в Паскале, плииииз!!!
Var a,b,c,s,n,i:integer; begin readln(n); b:=1; for i:=1 to n do begin c:=b+a; s:=s+c; a:=b; b:=c; end; writeln('s=',s); end.
Спасибо огромное!!!