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

Question

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

Comments

может последнее число 216?

---

Алгоритм:

---

216=2^8; k:=1; for i:=1 to 7 do k:=k+k*2;

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.

Comments

это не существенный недочет, тк ответ из-за него не изменился. Базовое значение любой переменной (если её не задать) итак 0

---

программа неправильная, она будет суммировать все четные числа: 1+2+4+6+8+10+..., а там в условии 6 не нужна, скорее всего также как и 10 и т.д.

---

уточни пожалуйста условие там последнее число точно 210? может все-таки 216?

---

да, вы правы. 6ти там нету. ну тогда задача не получается!

---

опа

---

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

---

И решение выглядит так: 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.

---

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

---

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

---

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