Программа созжумбак наверное
Начиная от единицы, y будет удваиваться, пока у меньше 100. Т.е. у будет идти по степеням двойки, начиная с нулевой. Ближайшая меньшая к ста степень двойки - шестая, она дает значение 64 и для нее цикл выполнится последний раз, давая следующую, седьмую степень двойки, равную 128.
Ответ: 128
110 Кбайт = 110*1024 байт
16 бит = 2 байта
Количество страниц = 110*1024 / (40*64*2) = 22
Есть много решение этой задачи. Вот моё.
program n_1;var a:real;beginread(a);a:= a / 2;writeln(a,' ',a);end.
Var
x,y,z:real;
begin
writeln('Введите три числа');
read(x,y,z);
If (x>z) and (x>y) then
writeln('Наибольшее= ',x);
If (y>z) and (y>x) then
writeln('Наибольшее= ',y);
If (z>x) and (z>y) then
writeln('Наибольшее= ',z);
If (z=y) and (y=x) then writeln('Все числа одинаковые') else
begin
If (z=x) then writeln('числа x и z равны');
If (y=x) then writeln('числа x и y равны');
If (z=y) then writeln('числа y и z равны');
end.
end.