marinazubcko16729
?>

Статья, набранная на компьютере, содержит 19 страниц. на каждой странице – 50 строк, в каждой строке – 64 символа (включая пробелы между словами каждый сим-вол кодируется 16 битами. определите информационный объем статьи (в мбайтах) в этом варианте представления.

Информатика

Ответы

roman-fetisov2005
64*50*19 = 60800 (количество символов в статье) каждый символ кодируется 16-ю битами, 60800  * 16 = 972800 бит. можно перевести в килобайты.972800  бит/8 = 121600 байт. 121600/1024/1024 = примерно 0,166 мегабайт.
galinab1111326

var

  a : array of integer;

  n, i, last : integer;

begin

  read (n);

  setlength (a, n);

  for i : = 0 to n - 1 do

    read (a[i]);

  last : = 0;

  for i : = 0 to n - 1 do

    if a[i] < > 0 then

    begin

      a[last] : = a[i];

      inc (last);

    end;

  setlength (a, last);

  for i : = 0 to last - 1 do

    write (a[i], ' ');

end.

 

суть такова. имеем динамический массив. считали массив, так как динамический, то от нуля все. установили последнюю свободную ячейку 0. идем по массиву и ищем ненулевое значение. как только нашли, пишем его в свободную ячейку и увеличиваем занчение свободной ячейки на 1. при этом наши данные не затираются. после окончания всех операций в last лежит длина массива.статитечкий массив. 

var

  a : array [1..100] of integer;

  n, i, last : integer;

begin

  read (n);

  for i : = 1 to n do

    read (a[i]);

  last : = 1;

  for i : = 1 to n do

    if a[i] < > 0 then

    begin

      a[last] : = a[i];

      inc (last);

    end;

  dec (last);

  for i : = 1 to last do

    write (a[i], ' ');

end.

 

ViktorovnaLarin

var

  a : array [1..100] of integer;

  n, i : integer;

  flag : boolean;

begin

  write ('введите количество чисел: ');

  readln (n);

  for i : = 1 to n do

  begin

    write (i, '-ое  число = ');

    readln (a[i]);

  end;

  for i : = 1 to n do

  begin

        write (i, '-оечисло   ');

    if a[i] < 0 then

    begin

      write ('отрицательно');

      flag : = true;

    end;    

    if a[i] mod 2 = 0 then

    begin

      write ('четно');

      flag : = true;

    end;

    if not flag write ('никакое');

    flag : = false;

    writeln;

end;

end.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Статья, набранная на компьютере, содержит 19 страниц. на каждой странице – 50 строк, в каждой строке – 64 символа (включая пробелы между словами каждый сим-вол кодируется 16 битами. определите информационный объем статьи (в мбайтах) в этом варианте представления.
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

Алексей Шуклин
frolevgevg6420
Калмыкова-Петрунина
aleksey7800
Сергей_Евгеньевич1255
zaretskaya37
Щуплова Александр
volk88882
blizzardtap641
zhunina71807
Shevtsov1818
vetrov1
wwladik2606222
nikiforovako76
fermproddk