дана последовательность чисел: первый элемент равен 1, каждый следующий в 2 раза больше предыдущего. Найдите сумму первых 10 членов последовательности. Иными словами S=1+2+4...+512
Геометрическая прогрессия: b1=1 q=2
И, если надо, программа:
var s,i:integer;
begin
i:=1;
while i<=512 do begin</p>
s:=s+i;
i:=i*2;
end;
writeln(s);
end.