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

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