Question

вычислить 1+2+4+8+...+210 
Нужно написать программу в паскале.

Answer 1

var a,x:integer;
begin
for a:=0 to 210 do
if (a mod 2=0) or (a=1) then
x:=a+x;
writeln(x);
end.

Answer 2

Скорее всего прогрессия следующая : 1+2+4+8+16+32+....+210;

Answer 3

И решение выглядит так: var i,s,a,n :integer;
begin
writeln('Введите конечное число');
readln(n);
s:=0;
a:=1;
for i:=1 to n do
begin
s:=s+a;
a:=2*a;
end;
writeln('Сумма ряда : s= ',s)
end.

Answer 4

Немного накосорезил ,не конечное число ,а кол-во шагов. Как ограничить конечным числом чёт не соображу, еще учусь.

Answer 5

да ладно, 10 недель назад было, чего паришься?)

Answer 6

автор вопроса уж сам забил давно