Растровый графический файл содержит черно-белое изображение ( без градации серого ) размером 400 на 250 точек . каков информационный объем этого файла ? ( в кб)

Окей, черный и белый (без град серого) - это два цвета, значит кол-во цветов в палитре - 2. (n=2) x=400 y=250 найдём глубину цвета. n=2^i i=log2 2 i=1 находим информационный объём. v=x*y*i v=400*250*1=100000 бит переводим биты в килобайты. 100000 бит = 12500 байт = 12,2 кб ответ: 12,2 кб

Var s: string;     ch: char;       i,d,c,k: integer; begin   write('слово:   ');   readln(s);   i: =1; d: =0;   c: =0;   k: =0;   repeat      ch: =s[i];     case ch of        'd': d: =d+1;       'c': c: =c+1;       'k': k: =k+1;     end;     i: =i+1;   until i> length(s);   writeln('кол-во d = ',d,'   кол-во c = ',c,'   кол-во k = ',k); end.

Var   a : array['a'..'z'] of integer;   t : array['a'..'z'] of boolean;   m : integer;   c : char; begin   m : = 0;   for c : = 'a' to 'z' do     a[c] : = 0;   repeat     for c : = 'a' to 'z' do       t[c] : = false;     read(c);     while (c < > ',') and (c < > '.') do       begin       if not t[c] then         begin         a[c] : = a[c] + 1;         if a[c] > m then           m : = a[c];         t[c] : = true         end;       read(c)       end   until c = '.';   for c : = 'a' to 'z' do     if a[c] = m then       write(c,' ') end.