48 надо.составить программы с циклом пока и до, которые выведут на экран числа от 1 до 100 на паскале. не брать с других !

Держи : ) на скриншоте код читабельней : )  var    a: array[1..10] of integer;   i, ch, nech: integer;     begin  for i : = 1 to 10 do    begin      a[i] : = random(10) + 1;         if a[i] mod 2 = 0 then        ch : = ch + 1      else        nech : = nech + 1;     end;             writeln('количество чётных: ',ch);   writeln('количество нечётных: ',nech); end.

Так как первый весит 20кбайт, а второй в пять раз больше, следовательно второй весит 100кбайт.  общий вес файла равен 120кбайт (первый + второй).  в кодировке unicode 1 символ равен 2 байтам (16 битам).  вес одной строки = 64 (кол-во символов) * 2 (вес одного) = 128 байт = 2^7 байт.  переведём 120кбайт в байты = 120 * 1024 = 122880 байт, либо 120 * 2^10 байт. теперь узнаем количество строк = общий вес файла / вес одной строки =   120 * 2^10 /   2^7 = 120 * 2^3 = 120 * 8 = 960 строк.