Перевести 2048 байт в кбит 3 кбит в байт 1536 байт в кбит

1) 2048 байт = 16 кбит 2) 3 кбит = 384 байт 3) 1536 байт = 12 кбит

2048 байт = 16 кбит 3 кбит = 384 байт 1536 байт = 12 кбит

Описывается список с полями согласно type        student = record         fam: string;         inn: string;         year: integer;         god_p: integer;         kurs: 1..5;         gruppa: string; b1, b2, b3: 1..5; end; объявляются необходимые переменные и массив с типом записи var        spisok: array [1..n] of student;         b, a: string;         i, j, k1: integer; и заполняется от 1 до n (n=5 установлена константа)for i : = 1 to n do // идем от 1 до n  и заполняем список       with spisok[i] do            begin                  writeln('введите фамилию'); readln(fam);                       {}end; потом обрабатывается согласно по вариантамскорее всего, что-то типо сортировки по году рождения, самых молодых пихают в начало.(глупо. можно было не городить такой кусок кода, а уместить все в один цикл с проверкой и выводом имхо)затем выводится 3 фамилии самых молодых for i : = 1 to 3 do begin write(spisok[i].fam); writeln; end;

1: ну-с,  три раза циклом идем начиная с 1 до 3 и получается следующее:       идем первый раз: s: =1+1*1 в результате s = 2;       идем второй раз: s: =2+2*2 в результате s = 6;       идем третий раз: s: =6+3*3 в результате s = 15;       ответ: s = 15; 2: в результате выполнения программы будет выведены 6 чисел которые получились в результате вычисления s: =s+2*j; т.е. как и в предыдущем (1) идем циклом с  10 до 15 и считаем, а после сразу выводим.      s: = 0 + 2*10; s=20;       s: = 20 + 2*11; s=42;       s: = 42 + 2*12; s=66;       s: = 66+2*13; s=92;       s: =92+2*14; s= 120;       s: =120 + 2*15; s=150; 3: крч все тоже самое цикл и т.д.ответ: 5 20 60 120 120