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

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