Вычислить: 1+2+4+8...+256 в паскале Распишите программу ! Пж

Question

Вычислить: 1+2+4+8...+256 в паскале
Распишите программу !
Пж

Answer 1

Var i,s: integer;
begin
  i:=1;  s:=0;
  repeat
    s:=s+i;
    i:=i*2;
  until i>256;
  writeln('s = ',s);
end.

второй вариант:

var s: integer;
begin
  s:=1 shl 9 - 1;
  writeln('s = ',s);
end.

s = 511