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

0 голосов
61 просмотров

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


Информатика (12 баллов) | 61 просмотров
Дан 1 ответ
0 голосов

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


(9.7k баллов)