Решите растровый графический файл содержит цветное изображение с палитрой из 256 цветов размером 10 х 10 точек.каков информационный объем этого файла? а)800 байт б)400 бит в)8 кбайт г)100 байт заранее )

N=2^8 i=8 бит i=10*10*8=800 бит=100 байт) ответ: г

1)var   a: array[1..10] of integer;   m, i,s: integer; begin   randomize;   for i : = 1 to 10 do    begin     a[i] : = random(+10) + 1;     if a[i] > m then m : = a[i];   end;   for i : = 1 to 10 do    begin     if a[i]=m then s: =s+1;   end;   writeln(s); end. 2)var

  a: array [1..20] of 2..5;   //массив оценок учеников

  i: integer;

  n: array [2..5] of 2..5;   //массив счетчиков оценок

 

begin

  for i: = 2 to 5 do   //обнуляем счетчики оценок

    n[i]: = 0;

  for i: = 1 to 20 do   //вводим оценки учеников и считаем их

  begin

    writeln('введите оценку ', i, '  ученика');

    readln(a[i]);

    if a[i] = 2 then n[2]: = n[2] + 1;

    if a[i] = 3 then n[3]: = n[3] + 1;

    if a[i] = 4 then n[4]: = n[4] + 1;

    if a[i] = 5 then n[5]: = n[5] + 1;

  end;

  for i: = 2 to 5 do

    writeln('количество получивших ', i, ' за диктант равно:   ', n[i]);   {выводим значения счетчиков}

end.

3)  program zada4a3; var a: array[1..50] of integer;   i,k: integer; begin for i: = 1 to 50 do a[i]: = random(51)+150; k: =0; for i: = 1 to 50 do if a[i]> 170 then k: =k+1; writeln(k); end.

если быков b, коров c, телят d, то должны выполняться следующие условия:

10b + 5c + 0.5d = 100 (если можно, чтобы деньги остались, то вместо равенства надо поставить ≤)

b + c + d = 100

можно поступить так: перебираем b, c, d от 0 до 100 и выводим эту тройку на экран, если выполняются оба условия.

псевдокод:

для a от 0 до 100:

    для b от 0 до 100:

        для c от 0 до 100:

            если (10b + 5c + 0.5d = 100) и (b + c + d = 100):

                вывод a, b, c