27 машин, 2^5=32
5 бит на кодировку одной машины
16*5=80 бит = 10 байт
//Pascal ABC.NET v3.0 сборка 1111
Const
n=5;
Var
ar:array[1..n] of integer;
i,k:integer;
begin;
randomize;
k:=0;
writeln('Array:');
for i:=1 to n do
begin;
ar[i]:=random(10);
write(ar[i]:4);
if not odd(ar[i]) then inc(k);
end;
writeln;
write('Res=',k);
end.
<u>PascalABC.NET 3.3.5, сборка 1650 от 01.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var a:=ArrRandom(ReadInteger('n='),1,200); a.Println;
Writeln('Ср.арифметическое кратных 3: ',
a.Where(t->t mod 3=0).DefaultIfEmpty.Average)
end.
<u>Пример</u>
n= 15
185 103 5 33 116 167 189 36 79 110 188 12 26 11 10
Ср.арифметическое кратных 3: 67.5
А) В программе, переменные s и a приравниваются к единице. После этого, в программе запусакется цикл. Он будет работать до тех пор, пока значение i, которое равно единице, не достигнет числа 3. 3 раза будет присваиваться значение S+i×(i+1)×a к переменной S, а к переменной a - значение: a+2. Когда цикл будет завершён, программа закончит свою работу. В конце работы программы, переменная S будет равна числу: 81.
б) Первым делом, в программе запускается цикл. Он будет работать до тех пор, пока переменная i не будет равно числу 3. Сама переменная i равна числу 1. После запуска 1-ого цикла, 3 раза переменная S будет приравниться числу 0, затем, в ходе работы 1-ого цикла, запускается 2-ой цикл, который будет запускаться 3 раза, в нём же, по 1-ому разу переменная S будет принимать значение: i+j. В конце работы программы, переменная S будет равна числу: 5.
