сделать задание по Информатике ">

//PascalABC.NET (версия 3.1, сборка 1198 от 11.03.2016)
var a,n,k,i,j,s:integer;
begin
  writeln('Количество учеников и количество оценок');
  readln(n,k);
  for i:=1 to n do begin
    for j:=1 to k do begin
      write('Ученик № ',i, ' оценка № ',j,' = ');
      readln(a);
      s:=s+a;
    end;
  end;
  println('Средняя оценка группы ',s/(n*k):6:3);
end.

Тестовое решение:
Количество учеников и количество оценок
3 3
Ученик № 1 оценка № 1 = 3
Ученик № 1 оценка № 2 = 4
Ученик № 1 оценка № 3 = 4
Ученик № 2 оценка № 1 = 5
Ученик № 2 оценка № 2 = 4
Ученик № 2 оценка № 3 = 4
Ученик № 3 оценка № 1 = 4
Ученик № 3 оценка № 2 = 3
Ученик № 3 оценка № 3 = 3
Средняя оценка группы  3.778

№1

Справочные данные:

1 байт = 8 бит

1 Кбайт = 1024 байт

1 Мбайт = 1024 Кбайт

Используя эти данные решаем задачу.

120 бит = 120 / 8 байт = 15 байт

152 бит = 152 / 8 байт = 19 байт

2048 бит = 2048 / 8 байт = 256 байт

2.2 Кбайт = 2.2 * 1024 байт = 2252,8 байт

1.3 Мбайт = 1.3 * 1024 Кбайт = 1.3 * 1024 * 1024 Байт = 1363148,8 байт

№2

Здесь можем использовать справочные материалы из задания 1.

15 Мбайт = 15 * 1024 Кбайт = 15360 Кбайт = 15360 * 1024 байт = 15728640 байт = 15728640  * 8  бит = 125829120 бит

№3

Дано:

N = 64

k = 20 cимволов

Найти: I

I = k * i

N =

i = 6 бит

I = 20 * 6 = 120 бит

ответ: 120 бит