<span>нужно найти в массиве минимальный элемент из тех, которые не меньше 180. Это стандартная задача, она решается примерно так:[pre2] const N = 10; var A: array[1..N] of integer; k: integer; ... min := MaxInt; { записываем в min большое число, здесь - больше 200 } for k:=1 to N do if (A[k] >= 180) and (A[k] < min) then min := A[k]; writeln(min); [/pre2]</span>
Var a,b,y:integer;
begin
writeln('Введите 2 числа a и b'); readln(a,b);
if a=b
then y:=1
else if a>b
then y:=2
else y:=3;
writeln('y= ', y);
end.
<span>157(10) = 10011101(2)
со знаком, это представим в прмом коде
1,10011101
обратном
1,01100010
и дополнительном
1,01100011</span>
F G F+G
0 0 0
0 0 0 Cемь одинаковых строк: в шести все нули, в одной - 1.
0 0 0
0 0 0
0 0 0
0 0 0
1 1 1
----------------
1 0 1 во всех остальных при различных значениях F и G
0 1 1 F+G =1 (F+G=0 при F=G=0)
...............
ответ: 6