Вычислите объем 1го кластера вжестком диске, если использовалась таблица размещения файлов fat16, объем жесткогодиска 500 гб.

Особенность файловой системы fat16 в том, что количество кластеров всегда постоянно:   65525 штук (не больше и не меньше), а значит при делении дискового пространства весь жесткий диск будут делить на 65525 равных частей.1) 500 гб * 1024 =  512000 мегабайт * 1024 =  524288000 килобайт 2)  524288000 кб / 65525 кластеров =  8001 кб для одного кластера на жестком диске, если использовали fat16, а объем жесткого диска 500 гб примечание, так использовать не удобно - 1 кластер - 1 файл - файл может занимать и больше кластеров, но другой файл будет записываться только в следующий кластер: )

Если вынуть 98 конфет, то будут конфеты всех 3 видов. пусть у нас по n конфет каждого вида. тогда может так получиться, что мы вынем 2n конфет, и они будут только 2 видов. и только, вынув (2n+1)-ю конфету, мы получим все три. 2n+1 = 98 2n = 97. значит, конфет одного и другого вида по [97/2] = 48, а конфет третьего вида 49. пусть ирисок и леденцов по 48, а шоколадных 49. вынув 48 ирисок и 48 леденцов (96 конфет), мы получим 2 вида. вынув 48 ирисок и 49 шоколадных (97), мы получим 2 вида. вынув 48 леденцов и 49 шоколадных (97), мы получим 2 вида. и только вынув 98-ую (в 1 случае 97 и 98), мы получим 3 вида. ответ: всего конфет было 48 + 48 + 49 = 145.

Основную ошибку вам уже указали. можно программу немного сократить: program yyy;   function prost(x: integer): boolean;   var  k,i: integer;   begin  k: =0;   for i: =2 to trunc(sqrt(x)) do   if x mod i = 0 then k: =k+1;   prost: =k=0 end;   var  n,m,i: integer;   begin  write('n='); readln(n);   write('m='); readln(m);   for i: =n to m-2 do   if prost(i) and prost(i+2)   then writeln(i,'   ', (i+2));   end. пример: n=1 m=150 1   3 3   5 5   7 11   13 17   19 29   31 41   43 59   61 71   73 101   103 107   109 137   139