Цветное изображение было оцифровано и сохранено в виде файла без использования сжатия данных. размер полученного файла – 54 мбайт. затем то же изображение было оцифровано повторно с разрешением в 2 раза больше и глубиной кодирования цвета в 3 раза меньше по сравнению с первоначальными параметрами. сжатие данных не производилось. укажите размер файла в мбайт, полученного при повторной оцифровке.

Формула: объём_1 = разрешение * глубину кодирования цвета если разрешение увеличили в 2 раза, а глубину кодирования цвета уменьшили в 3 раза, то получается такая формула: объём_2 = 2 * разрешение * глубину кодирования / 3 чтобы найти объём_2, надо умножить объём_1 на 2 и разделить на 3. получаем 36 мбайт.

грубо и сердито:

 

 

var c: longint;

begin

  read(c);

  c: =c mod 10;

  c: =sqr(c);

  writeln(c);

end.

чесно говоря без них куда легче

 

var s: string;

i: integer;

begin

  read(s);

  for i: = 1 to length(s) do

      if i mod 2 = 0 then s[i]: ='*';

  writeln(s);

end.

 

с ними только больше кода

 

var s: string;

i: integer;

begin

  read(s);

  for i: = 1 to length(s) do

      if i mod 2 = 0 then begin

          delete(s,i,1);

          insert('*',s,i);

      end;

  writeln(s);

end.