1. Дано целое число. Проверить, является ли оно кратным 4, или кратным 6. Из диапазона чисел от 150 до 350. 2. Найти количество чисел кратных 12 из диапазона чисел от 50 до 500.

помгите​

Все просто. У вас есть какая-то статья. Чтобы посчитать ее размер, нужно знать, сколько всего символов в книге, т.к. на каждый символ по условию уходит 8 бит. При этом количество символов в каждой строке одинаково, что также можно сказать и о количестве строк на странице. Поэтому мы можем посчитать количество символов на одной странице => это будет 64 * 40 символов. По условию задачи в этой статье всего 48 таких страниц => всего в статье будет 64 * 40 * 48 символов. Так как кодировка КОИ-8 8-битовая, это означает, что каждый бит будет нам "стоить" 8 бит => размер статьи будет 64 * 40 * 48 * 8 бит. Но это число слишком большое, поэтому мы можем выразить его через Кбайты.
64 * 40 * 48 * 8 бит = (64 * 40 * 48 * 8)/(1024 * 8) Кбайт = 120 Кбайт.
ответ: 120 Кбайт.

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadInteger('n=');
  WriteAllText('MyFile.txt',SeqRandom(n,-99,99).JoinIntoString);
  var (mn,mx):=(MaxInt,-MaxInt);
  foreach var line in ReadLines('MyFile.txt') do begin
    var a:=line.ToIntegers;
    (mn,mx):=(Min(a.Min,mn),Max(a.Max,mx))
    end;
  Writeln('Cумма min+max = ',mn,'+',mx,' = ',mn+mx);
  ReadAllText('MyFile.txt').Println // контрольный вывод файла
end.

Пример
n= 20
Cумма min+max = -99+71 = -28
62 -72 39 -93 -99 -46 -77 71 -12 13 -89 18 -17 19 -35 -62 30 17 -74 37