Сколько текстовых файлов объемом 400 байт можно записать на жесткий диск, если используется таблица размещения файлов fat 16 и емкость жесткого диска равна: а) 200 мбайт; б) 2 гбайта; в) 20 гбайт?

Правильный ответ под буквой б

Вотличие от многих людей, я отношусь к компьютеру позитивно. это — величайшее изобретение человечества! люди создали универсальную машину, с которой можно делать сто дел: читать, смотреть кино, рисовать, печатать, чертить, считать, находить полезную информацию, делать ретушь фотографии, создавать мультфильмы и видеоролики. еще можно общаться с людьми у которых самые разные увлечения, которые живут хоть на другом конце планеты. не нужно ограничиваться только теми людьми, кто живет в соседнем дворе, и навязывать себе их хобби. я могу продолжать этот список до конца сочинения, чтобы было понятно, как полезен компьютер. часто компьютер сравнивают с телевизором и говорят, что они оба крадут у человека время. но у меня другое мнение. да, долго сидеть перед компьютером вредно для здоровья и для личности, потому что человек не двигается, портит зрение и не общается с живыми людьми. но в чем виноват компьютер? ! человек сам крадет у себя время, а не машина. телевизор не полезен, потому что перед ним человек сидит пассивно. сидит, пультом клацает, а ему показывают картинку. с компьютером другое дело! с ним все время надо действовать! даже читать и писать все время приходится. так даже интереснее, чем торчать у телевизора. а еще компьютер заставляет выбирать самому то, что действительно нужно. если бы люди не учились выбирать, то перед монитором проводили бы всю жизнь. компьютер в моей жизни занимает важное место, но я могу подолгу обходиться и без него. просто надо все время помнить, что компьютер изобрели для того, чтобы облегчить жизнь, а не заменить ее. и чтобы расширить возможности человека, а не сузить их.

Pascalabc.net 3.4.2, сборка 1864 от 11.11.2018 внимание! если программа не работает, обновите версию!

begin

  var s : = readlnstring;

  var s1 : = s.where(t -> t in ['0'..'9']).sorted.groupby(t -> t)

      .select(c -> (c.key, c.(t -> t[0]).toarray;

  var s2 : = s1.where(t -> t[1] > 1).select(t -> t[0] * (t[1] div 2))

      .joinintostring('').replace('0', '');

  var s3 : = s1.where(t -> t[1] = 1);

  if s3.count > 0 then s2 : = s2 + s3.select(t -> t[0]).first + s2.inverse

  else s2 : = s2 + s2.inverse;

  s2.println

end.

пример for i: =99921 downto 2 29192