Сколько байт информации содержат 10кб ; и сколько байт информации содержит 72бит? оч надо !

1байт=8 бит, 1 кб=1024 байт 72: 8=9(байт) 1024×10=10240(байт) ответ: 10кб=10240байт, 72бит=9байт.

10240 байт = 10 кб, 9 байт = 72 бит

Var a,k,m,min,i,flag: integer;       begin               readln(a);               m: =a; {сохраняю введенное значение и считаю кол-во цифр в числе}                 while m > 0 do                          begin                                    m: =m div 10;                                     k: =k+1;                           end;       min: =9; {записываю самое большое нечетное число} {в цикле отсекаю последнюю цифру в числе и проверяю ее на нечетность. если она нечетная и меньше числа min, то сохраняю ее в min и присваиваю переменной flag 1. если к концу программы в переменной flag   будет 1, значит хотя бы одна нечетная цифра в числе была, если flag=0 тогда в числе нет нечетных}               for i: =1 to k do                            begin                                      if   (a mod 10< =min)and(a mod 2< > 0) then                                              begin                                                    min: =a mod 10;                                                       flag: =1;                                             end;                                   a: =a div 10;                           end;                   if flag=0 then                              writeln('нет нечетных')                else                                writeln(min); end.