:) 1.объем дискеты 1, 44 мб. сколько файлов можно записать на дискету, если длина каждого файла равна 250 кб? 2.объем дискеты составляет 1, 44 мб. величина сектора дискеты равна величине ее кластера и равна 512 байт.сколько кластеров на дискете?

1)1,44 мб= 1440 кб. 1440 делим на 250=5,76 файлов2)1,44 мб=11520байт.  1440000   делим на 2812,5=кластеров

Var  s : string; i, j, n : integer;   f : boolean; begin  readln(s);   n : = length(s);   i : = 1; j : = n;   f : = false;       while (i < = j) do    begin      if(s[i] = s[j])        then f : = true        else f : = false;       i : = i + 1;       j : = j - 1;       if not f        then break;     end;       if f    then write('палиндром')    else write('не палиндром'); end.

Итак забудем вообще про количество конфет в кучке. нам только важно, какой чётности кучка. придумаем стратегию за первого: изначально у него есть 2 кучи (ч,н) - чётная и не чётная соответственно. заметим, что из варианта (ч,н) мы всегда сможем сделать ход, разбив чётную на 2 нечётных кучки(это всегда можно сделать, т.к. в чётной как минимум две конфеты, и её можно разделить на две кучки (1,ч-1) где ч-1 - нечётно) и забрав себе нечётную кучу. таким образом из варианта  (ч,н) всегда можно осуществить переход к (н,н) с передачей ходи. заметим, что из кучки (н,н) можно получить только кучку (н,ч) либо закончить игру. а так как в   таком случае у первого всегда есть ход (переводящий (н,ч) в (н, общее количество конфет не увеличивается, и первый проиграть не может в силу стратегии, а игра должна закончится, то проиграет второй