Вычислить: 1+2+4+8...+256 в паскале Распишите программу ! Пж
Вычислить: 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
Не нашли ответ?
Похожие вопросы