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