Ошибка есть и она не одна.
1. Код приведен не полностью - после else должно быть что-то еще и обязательно замыкаться end.
2. abc - не такой функции в Паскале, возможно Вы имели в виду abs - абсолютная величина, т.е. модуль.
3. if ab then ... это тоже не верно, т.к. ab - не является логическим выражением или булевой пременной - видимо не дописал: if ab>ac then...
Var i: byte;
begin i := 10; while i <= 100 do begin if not odd(i) then write(i, ' '); inc(i); end; writeln; i := 10; repeat if not odd(i) then write(i, ' '); inc(i); until i = 101; writeln; for i := 10 to 100 do if not odd(i) then write(i, ' ');end.
1) 123 в двоичной = <span>1111011
123 в восьмеричной = 173
123 в шестнадцатеричной = 7В
456 в двоичной = </span>111001000<span>
456 в восьмеричной = 710
456 в шестнадцатеричной = 1С8
2) 100011 в десятеричной = 35
</span>100011 в восьмеричной = 43
100011 в шестнадцатеричной = 23
101001011 в десятеричной = 331
101001011 в восьмеричной = 513
101001011 в шестнадцатеричной = 14В
1110010001 в десятеричной = 913
1110010001 в восьмеричной = 1621
1110010001 в шестнадцатеричной 391
Начиная от единицы, y будет удваиваться, пока у меньше 100. Т.е. у будет идти по степеням двойки, начиная с нулевой. Ближайшая меньшая к ста степень двойки - шестая, она дает значение 64 и для нее цикл выполнится последний раз, давая следующую, седьмую степень двойки, равную 128.
Ответ: 128