вывода на экран всех степеней числа 2, меньших за 100. Используя оператор while.

[AlexStrog]

Составтьте программу вывода на екран всех степеней числа 2, меньших за 100. Используя оператор while.

[Dvoishnik]

  while SQ<100 do
    begin
     writeln(SQ);
     SQ:=SQ*2;
    end;

[min@y™]

меньших за 100

это надо с евrейско-одесским акцентом читать?
что это значит-то?

[Serge_Bliznykov]

2 в степени 100 будет
1 267 650 600 228 229 401 496 703 205 376

Dvoishnik, в вашем коде переполнения не будет?!

рекомендую ознакомиться с притчей про изобретателя шахмат и награду, которую он попросил в виде зернышка на первой клеточке, два зёрнышка на второй клеточке, и т.д. удваивая предыдущее значение. Магараджа не смог выдать ему награду. Вы знаете, почему? А ведь там было всего навсего 2 в степени 64
(правда там было суммирование всех предыдущих, но это в данном случае не принципиально).

Прошу не обращать внимания на мой пост.

[olga_sherbiena]

var
s: integer;
begin
s := 1;
while s<=100 do
begin
writeln(s);
s:=s*2;
end;
end.

[evg_m]

думаю так будет корректней.

последний вывод будет = 256128

[digitalis]

Сообщение от AlexStrog

вывода на екран всех степеней числа 2

"Чтобы сил себе моральных и физических сберечь -
пейте соков натуральных - укрепляют грудь и плеч"

Та без проблем - кто сказал, шо числа целые должны быть ?

var x : extended ; i : integer ;
begin
  x := 1 ; i := 0 ;
  while i < 100 do
    begin
        Writeln (i,x) ;
        x := x + x ; Inc (i)
    end ;

Ну ежели уж позарез в целых числах, то (на Паскале мне лень) на Делфи что-то вроде :

var  i : integer ; IL,IH: Int64 ;

implementation

{$R *.dfm}

procedure TForm1.FormActivate(Sender: TObject);
begin
  Memo1.Clear ; i := 0 ; IL := 1 ; IH := 0 ;
end;

procedure TForm1.Button1Click(Sender: TObject);
var stL,stH,stHL : string ;
begin
  stL := (Format ('%20d',[IL])) ;
  stH := (Format ('%20d',[IH])) ;
  stHL := stH+stL ;
  Memo1.Lines.Add(Format ('%3d %s',[i,stHL])) ;
  Inc (i) ; IL := IL + IL ; IH := IH + IH;
  if IL > 1000000000000000000 then
    begin  IL := IL - 1000000000000000000 ; IH := IH + 1 end ;
end;