дана последовательность чисел: первый элемент равен 1, каждый следующий в 2 раза больше предыдущего. Найдите сумму первых 10 членов последовательности. Иными словами S=1+2+4...+512

Геометрическая прогрессия: b1=1 q=2

И, если надо, программа:

var s,i:integer;

begin

i:=1;

while i<=512 do begin

s:=s+i;

i:=i*2;

end;

writeln(s);

end.