Итак:
на один символ было 16 бит, стало 8, таким образом:
8x=16x-240, отсюда:
x=30 символов
Обратим внимание, что задания 2 и 3 предполагают одинаковый результат: в самом деле, если число оканчивается на 2, то оно четное, т.е. кратно двум, что приводит задание 3 к заданию 2.
Для задания 1 или заданий 2,3 оставляем в программе только нужную строку.в соответствии с комментарием.
<em>// PascalABC.NET 3.2, сборка 1374 от 10.01.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(ReadInteger('n='),1,99); a.Println;
Writeln('k=',a.Where(k->k.IsEven).Count); // для задания 1
Writeln('s=',a.Where(k->k mod 10=2).Sum) // для заданий 2/3
end.
<u>Пример</u>
n= 17
61 32 83 78 47 80 85 64 52 85 30 77 96 81 14 65 67
k=8
s=84
перекодирование<span> — Повторное кодирование в другом коде.</span>
"Каждая вторая" означает, что с дистанции сошли машины с четными номерами.
var
i:integer;
begin
Write('С дистанции сошли машины с номерами ');
i:=2;
repeat
Write(i,' ');
i:=i+2
until i>17
end.
Результат
С дистанции сошли машины с номерами 2 4 6 8 10 12 14 16
<span>это специальный процессор, который предназначен для удаленного запуска приложений, обработки запросов на получение информации из баз данных и обеспечения связи с общими внешними устройствами: принтерами, модемами, устройствами чтения компакт-дисков.
</span><span>это информационная технология работы в сети, позволяющая людям общаться, оперативно получать информацию и обмениваться ею.
</span>