изобразите схему дружественных связей участников туристической секции на основании информации представленной в этой таблице

в одном байте восемь бит. следовательно 100/8=12.5   ответ 12.5

а если число

var n,i,p: integer;

s: string;

begin

  read(n);

  s: =str(n) ; {переводим число в строку}

  n: =0;

  for i : = 1 to length(s) do

      n: = n+ int(s[i]); {переводим каждый символ строки обратно в цифру}

  writeln(n);

  read(n);

  p: =1;

  for i: = 1 to n do

    p: = p*i;

  writeln(p);

end.

если хотим получить универсальное решение

1 сначала составляем таблицу или запись или как угодно назовите - набор связаных между собой данных определенных типов (зависит от языка программирования)

одна запись таблицы имеет

  first_row

  last_row

  ticket_cost

  sits_in_row

2 заполняем таблицу любым удобным нам способом

3 делаем нужные нам рассчеты

для каждой записи таблицы

  s: =s + (last_row - first_row + 1) * sits_in_row * ticket_cost

4 делаем вывод результата любым удобным нам способом

1) program imja_program

2) var imja_peremennoj: tip_peremennoj

3)integer,byte,real,long, short и еще какие-то но вряд ли будешь их использовать

более подробно смотри в википедии