Выглядит просто :)
И так...
Допустим переменная 'a' = 15, заходим в цикл. Отнимаем от переменной 2. Если переменная 'a' больше 1, то повторяем цикл. И так до того момента пока от переменной не останется 0 или 1. Если переменная равна 0, это значит что переменная четная. А если 1, то переменная нечетная. И так делаем со всеми переменными :)
Вот эти числа:
10001011 - 139
10111000 - 184
10011011 -155
10110100 - 180
Но, скорее всего, единица в последнем разряде указывает на знак, тогда:
<span>0001011 - 11
</span><span>0111000 - 56
</span><span>0011011 - 27
</span><span>0110100 - 52
</span>Соответственно, только первое число меньше 16
Var a,b,s:real;
begin
Writeln('Привет,я-alconafft');
a:=5;
b:=-3.5;
s:=a+b;
s:=2*s-b;
writeln('s= ',s);
end.