Рассматриваются 8-разрядные числа со знаком. Какие из приведённых шестнадцатеричных чисел отрицательные: 1, 8, Е, 10, 18, 20, 30, ЗЕ, 40,70, 7Е, 80, 90, А1, СС, ЕО, ЕЕ? Как это можно быстро определять?

60,111100,3c,74

var

a,b,c: real;

begin

readln(a,b,c);

writeln((a+b+c)/3);

end.

Program is_ev_2d; var n: integer; begin   write('введите число: ');   readln(n);   if (n mod 2 = 0) and (n > 9) and (n < 100) then     writeln(n, ' чётное двузначное')   else      writeln(n, ' не чётное двузначное') end.

32*64

*56*1/1024=112 кбайт