Cтатья, набранная на компьютере, содержит 8 страниц, на каждой странице 40 строк, в каждой строке 64 символа. информационный объём статьи составляет 25 кбайт. определите, сколько бит памяти используется для кодирования каждого символа, если известно, что для представления каждого символа в эвм отводится одинаковый объём па

Объяснение:

Находим количество символов в статье

8*40*64=20480 символов

2.       Переведем 25Кб в биты 25*1024*8 = 204800 бит

3.        204800/20480=10бит памяти используется

Не попавшую на рисунок вершину обозначим К.

С пунктом В связано наибольшее количество точек - ему соответствует П6. Пункт Е - единственный, который не связан с В - на его роль претендует только П2. Только пункт К имеет связь ровно с тремя вершинами - по таблице ему подходит П4.

Имеем:

В - П6

Е - П2

К - П4

Зная, что вершина Д связана с Е, определим по таблице, что ей подходит П7 (П4 уже занята пунктом К). Точке Г соответствует П3.

Осталось посчитать расстояния всевозможных маршрутов от В до Е и выбрать кратчайший.

В-Д = П6-П7 = 20

Д-Е = П7-П2 = 15

В-Д-Е = 20+15 = 35

В-К = П6-П4 = 25

К-Е = П4-П2 = 5

В-К-Е = 25+5 = 30

В-Г = П6-П3 = 10

Г-К = П3-П4 = 10

К-Е = П4-П2 = 5

В-Г-К-Е = 10+10+5 = 25

25 < 30 < 35

Таким образом, длина кратчайшего маршрута - 25.

Вообще, при решении подобных задач старайтесь искать какие-нибудь зацепки - например, вершины с таким количеством соседей, которого нет у других вершин (вроде вершин В и К в этой задаче). Где-то можно использовать метод исключения и т.п.

1.
var
  s: string;
  i, count: integer;
begin
  writeln('Vvedite stroky: ');
  readln(s);
  for i := 1 to length(s) - 2 do
    if copy(s, i, 3) = 'abc' then
      count := count + 1;
  writeln('Kol-vo: ', count);
end.
2.
var
  s1, s2: string;
  i, len1, len2: integer;
begin
  writeln('Vvedite stroky 1: ');
  readln(s1);
  writeln('Vvedite stroky 2: ');
  readln(s2);
  len1 := length(s1);
  len2 := length(s2);
  if len1 > len2 then writeln('1 stroka dlinnee')
  else if len1 < len2 then writeln('2 stroka dlinnee')
  else writeln('dlini strok ravnie')
end.
3.
var
  s1, s2, s3: string;
begin
  writeln('Vvedite stroky 1: ');
  readln(s1);
  writeln('Vvedite stroky 2: ');
  readln(s2);
  s3 := s1[1] + s1[2] + s2[1] + s2[2];
  writeln('Novaja stroka: ', s3);
end.