Вычислить ** pascal : 1+2+4+8+...+2^10

Question

Вычислить на pascal : 1+2+4+8+...+2^10

Answer 1

var
  i: integer;

begin
  for k: byte := 0 to 10 do
    i += round(power(2, k));
  writeln(i);
end.

Comments

операторы циклов, операторы присваивания и всякое подобное, короче начальный уровень

---

for - оператор цикла
+= - увеличение переменной на значение, находящееся справа
round - округление (тут оно для привидения типов, не суть)
power - возведение в степень)

---

Вместо += можно поставить i := i + ...

---

спасибо большое =)

---

а вот такое как решить: (1+2)*(1+2+3)*...*(1+2...+10) ?

---

var
i, s: real;

begin
i := 1;
s := 1;
for k: byte := 2 to 10 do
begin
i += k;
s *= i;
end;
writeln(s);
end.

---

спасибо, выручил сильно

---

Не за что, самому опыт)

---

курсовик завтра сдавать, я только щас сейчас начал делать, вообще мозги плавит

---

Мне не понять, я девятый ещё не закончил)