ПОЖАЛУЙСТА!!!!Напишите программу для вычисления суммы 10 натуральных чисел последовательностью 1+2+4+8+..в Pascal

ПРАВИЛЬНОЕ РЕШЕНИЕ

VAR
i,S,p,q: integer;
BEGIN
s:=0;
p:=1;
q:=2;
for i := 1 to 10 do
begin
s:=s+p;
p:=p*q;
end;
writeln('S=',s);
END.

это геометрическая прогрессия.. .
вспоминайте из математики как найти сумму первых N членов прогрессии...

в цикле по формуле An = 2*A(n-1)

. .
s:=0;
for i:=1 to 10 do
s:=s+i;
writeln('Сумма 10 натуральных чисел s=', s:4);
. .
Этот фрагмент не трудно доработать.

это же сумма элементов ряда 2 в степени I, где I:=0 to N-1....

VAR
i,S: integer;

Function pow(A,B:integer):integer; { Функция возведения в степень (A^B) }
Var T:integer;
Begin
T := Abs(A);
If A < 0 Then pow := (-1)*Exp(B*Ln(T))
Else pow := Exp(B*Ln(T));
End;

BEGIN
s:=0;
for i := 0 to 9 do s:=s+pow(2,i);
writeln('S=',s);
readln;
END.

добавь в друзья, напишу в пм

program prog;
uses crt;
const n=10;// êîíñòàíòà êóäà ìû çàïèñûâàåì ñêîëüêî ýëåìåíòîâ ìû õî÷åì ñîñ÷èòàòü
var
x,y,z,i: integer;
begin
clrscr;
x:=1; y:=0; // ïåðåìåííûå ñîçíà÷åíèÿìè äëÿ ïîëó÷åíèÿ íàøåãî ðåçóëüòàòà
for i:= 1 to n do
begin//èäåì â öèêëå îò ïåðâîãî ýëåìåíòà è äî ïîñëåäíåãî
z:= x;//ïåðåìåííîé z ïðèñâàèâàåì çíà÷åíèå ðàâíîå åäèíèöå
x:= x+y;// ïåðåìåííîé õ 1+0
y:= z; //è òóò ìû ñîâåðøàåì êðóãîâîðîò öèêëà ÷òîáû îí íå îñòàíàâëèâàëñÿ
//à øåë êàê íàì íàäî
write(x:5);//âûâîäèì ðåçóëüòàò
end; //êîíåö.
end.