Какое значение примет переменная y после выполнения фрагмента программы? y: =1; while y< 100 do begin y: =y*2; end;

Начиная от единицы, y будет удваиваться, пока у меньше 100. Т.е. у будет идти по степеням двойки, начиная с нулевой. Ближайшая меньшая к ста степень двойки - шестая, она дает значение 64 и для нее цикл выполнится последний раз, давая следующую, седьмую степень двойки, равную 128.

ответ: 128

1*2=2 2*2=4 4*2=8 8*2=16 16*2=32 32*2=64 64*2=128 ответ: у примет значение y=128.