Надо с решением
1) 341 Мбайт в биты .

ответ 2860515328 бит.

2) 3 435 973 836, 8 бит в Гбайт.

ответ 0,4 Гбайт.

3) Емкость диска составляет 1,4 Гбайта, а емкость дискеты – 1,44 Мбайта. На скольких дискетах поместится содержимое диска?

ответ 996 дискет.

4) Емкость винчестера – 2 Гбайт, емкость диска – 70 Мбайт. Сколько дисков потребуется, чтобы переписать всю информацию с винчестера?

ответ 30 дисков.

Uses crt ; var n,m:integer; rost,a,b:real; beginwrite('Введите количество учинеков 9а класса: ');readln(n);write('Введите количество учинеков 9б класса: ');readln(m);writeln('Вводите рост каждого из учинеков 9а по очереди');for i:integer :=1 to n do beginwrite(i,': '); read(rost);a:=a+rost;end;a:=a/n; // средний рост 9аwriteln('Вводите рост каждого из учинеков 9б по очереди');for i:integer :=1 to m do beginwrite(i,': '); read(rost);b:=b+rost;end;b:=b/n; // средний рост 9бif a > b then write('Средний рост учеников 9а больше.') else if a < b then write('Средний рост учеников 9б больше.') else write('Средний рост учеников 9а равен среднему росту учеников 9б.');end.

// PascalABC.NET 3.2, сборка 1363 от 17.12.2016
// Внимание! Если программа не работает, обновите версию!

begin
  var N:=ArrRandom(50,-111,348); N.Println;
  Writeln('Произведение элементов, кратных 5, равно ',
    N.Where(x->x mod 5=0).Aggregate(BigInteger(1),(a,b)->a*b));
  if N.Where(x->x.IsOdd).Count>N.Where(x->x.IsEven).Count then
    Writeln('Нечетных элементов больше')
  else Writeln('Четных элементов больше')
end.

Пример
151 129 60 55 140 -61 180 221 -7 1 -6 118 80 215 -109 176 82 265 209 234 36 276 71 147 268 138 288 300 37 270 290 79 -88 183 197 -13 23 222 -106 137 76 180 240 287 -55 -7 48 111 222 -82
Произведение элементов, кратных 5, равно -21155254513747200000000000000
Четных элементов больше