Найдите верное равенство: 1916 = 10002 438 = 2316 1510 = 100012 2316 = 02

program qwerty; uses crt; var a: real; beginclrscr; writeln('введите количество миль'); readln(a); a: = a*1.6; writeln('кол-во киллометров - ',a: 2: 2); readkey; end.

program xxx;

  var i, n : integer

                    d : array[1..30] of real;

begin

  write ('введите разметность массива n=');

  readln(n);

  writeln(''введите элементы массива d: ');

  for i: =1 to n do

        readln(d[i]);

  writeln ('исходный массив d: ');

  for i: =1 to n do

      write(d[i]);

  for i: =1 to n do

      if d[i] mod 3 = 0 then d[i]: = 2 * d[i];

  writeln ('полученный массив d: ');

  for i: =1 to n do

      write(d[i]);

  readln

end.

50 страниц.= 50*20 строк = 50*20*10 символов = 50*20*10 байт = 10 000 байт

10 картинок=10*100*200 пикселей = 10*100*200*3 байта = 600 000 байт

ответ: 0,0261 килобайта

1байт=8бит, 1кб=1024байт

214/8=26.75

26.75/1024=0.0261

1кбайт=1 тысяча байтов.значит 214бит надо превратить в байты - 1байт это 8бит; 214: 8=26,75.

26,75 x 1000=26750

вообще-то, кб> байт и надо делить, а не умножать.