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

1  дом-шофер михаил. 2 дом-электрик егор. 3 дом-учитель антон. 4 дом-врач николай.

Var   i: integer;   f,n: longint;   fr: real; begin   write('n='); read(n);   if n< =12 then begin       f: =1;       for i: =2 to n do f: =f*i;       writeln('f=',f)   end   else begin       fr: =1;       for i: =2 to n do fr: =fr*i;       writeln('f=',fr)   end end. тестовые решения: n=12 f=479001600 n=13 f=6227020800 n=20 f=2.43290200817664e+18

Алгоритм выигрыша в этой игре простой: каждый раз надо забирать из кучки m+1 камешек. следовательно, первым ходом надо забрать количество камешков, равное остатку от целочисленного деления n на м+1, а затем в каждый последующий ход забирать столько камешков, чтобы оставшееся их число было кратно m+1. ниже решение на языке borland pascal 7.01 uses crt; var   n,m,k: integer; begin   clrscr;   write('n,m='); read(n,m);   k: =n mod (m+1);   writeln(k);   readkey end. тестовое решение: n,m=7 4 2