<span>В Паскале:
if <условие> then <оператор 1> else <оператор 2></span>
Думаю ответ 2, т.к. из числа 111000,0112 получится 53,5, а из числа 1110000,112 получится число 113
Билл из Гравити Фолз пожирает оленя
Решение задачи на языке PascalABC:
<em>Program n1;
</em>
<em>Var a:array[1..16] of integer; i:integer; //Описываем переменные
</em>
<em>Begin
</em>
<em>For i:=1 to 16 do Begin //цикл на перебор массива
</em>
<em> a[i]:=random(40)-20; //заполняем массив
</em>
<em> write(a[i],' '); //выводим значение каждого элемента массива
</em>
<em>End;
</em>
<em>writeln; //пропускаем строчку при выводе
</em>
<em>For i:=1 to 16 do Begin //цикл на перебор массива
</em>
<em> if a[i] mod 2 = 0 then //условие чётности
</em>
<em> writeln('Элемент со значением (',a[i],') под номером #',i,' является чётным'); //вывод чётных элементов и их номеров
</em>
<em>End;
</em>
<em>End.</em>
512*1024= 524288 байт
524288*8= 4194304 бит