Var a:array[1..10] of integer;
i,k:integer;
begin
for i:=1 to 10 do begin
a[i]:=random(26);
writeln(a[i]);
if a[i] > 12 then k := k + 1;
end;
writeln('Элементов массива превышающих 12: ',k);
end.
1. Отметим, что приписывание к двоичному числу двух младших
разрядов предполагает предварительный сдвиг этого числа влево на два разряда
(что равносильно умножению на 2²=4), а затем установку двух младших разрядов в
соответствующие приписываемым битам значения. Следовательно, можно записать,
что 4N+a>43, где a - число, образованное приписываемыми справа битами,
которое не может превышать 11(2)=3(10)
4N+[0..3]≥44, откуда минимальное N=11
Теперь запишем N=11 в двоичной системе и применим к нему
заданный алгоритм.
N=1011(2), число единиц три, нечетное, приписываем 1,
получая 10111.
Теперь число единиц четное, приписываем 0 и получаем
R=101110(2).
В десятичной записи ему соответствует число 46.
<span>Ответ: 46</span>
Использовать Робот
алг
нач
нц пока слева свободно
влево
кц
нц пока слева стена
закрасить
вверх
кц
вверх
нц пока слева стена
закрасить
вверх
кц
вверх
влево
влево
вниз
нц пока справа стена
закрасить
вниз
кц
вниз
нц пока справа стена
закрасить
вниз
кц
<span>кон</span>
А что рисуем? Если пятиугольник, то 328 или112
Сори чувак, в паскале не шарю, но в с++ да.