Даны два числа а и в. подсчитайте количество натуральных чисел на отрезке от а до в, сумма цифр которых четна. нужна программа в паскале

Var b, a, d1, d2, i, j: integer;     c: string; begin       readln(a, b);             for i : = a to b do       begin           d1 : = 0;           c : = inttostr(i);           for j : = 1 to length(c) do               d1 : = d1 + strtoint(c[j]);           if (d1 mod 2 = 0) then inc(d2);       end;       writeln(d2); end.

1) n=2i ;     n=128; i=7 ответ: 7 бит информации несет в себе зрительное сообщение об остановке шарика в одной из лунок рулетки.

 

2) 8x кбайт = 16 гбайт 

16 гбайт= 16777216 кбайт

х=16777216/16=1048576 кбайт = 1 гбайт

 

3) 10101 = 1*20  + 0*21  + 1*22  + 0*23  + 1*24  = 1+4+16 = 21  

 

5) 125(dec)+11101(bin)*а2(hex)-1417(oct)=125+29*42-783=560 dec=1060 oct

 

а вот 4-е поподробней надо запись, не понятно же чего вообще нужно сделать!

From random import randintmas = [randint(0,100) for i in range(40)]print('40 рандомних чисел\n',mas)seredne = sum(mas) / len(mas)print("cередне: \n ",seredne)sere = []for x in mas: x > seredne: sere.append(x)print('числа більші середнього: \n',sere)vidsotok = (len(sere) /len(mas)) * 100print("відсоток чисел більших середнього значення : ",round(vidsotok,3),'%')приклад: 40 рандомних чисел  [42, 77, 69, 89, 50, 56, 40, 97, 79, 78, 60, 62, 50, 70, 21, 89, 74, 38, 58, 37, 2, 52, 2, 49, 50, 83, 85, 72, 96, 28, 25, 9, 73, 60, 65, 30, 66, 35, 73, 83]cередне:   56.85числа більші середнього:   [77, 69, 89, 97, 79, 78, 60, 62, 70, 89, 74, 58, 83, 85, 72, 96, 73, 60, 65, 66, 73, 83]відсоток чисел більших середнього значення : 55.0 %