Гра в камінчики є купка з n камінчиків. грають двоє. за один хід потрібно взяти не менше одного і не більше m камінців. програв той, хто не зміг зробити хід. скільки камінців взяли б ви, якщо розраховуєте на виграш і ходите першим або 0, якщо шансів на виграш немає? вхідні дані - 7 4 значення n і m (1 ≤ n, m ≤ 1000 вихідні дані - 2

Алгоритм выигрыша в этой игре очень простой: каждый раз надо забирать из кучки 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

Граф — абстрактный математический объект, представляющий собой множество вершин графа и набор рёбер, то есть соединений между парами вершин. Например, за множество вершин можно взять множество аэропортов, обслуживаемых некоторой авиакомпанией, а за множество рёбер взять регулярные рейсы этой авиакомпании между городами.

Вершина — это угловая точка многоугольника или многогранника (любой размерности)

Дуга — одно из двух подмножеств окружности, на которые ее разбивают любые две различные принадлежащие ей точки.

Ребра- представляют собой длинные узкие изогнутые пластинки, относящиеся по своему строению к плоским костям.

Program p1;
var
n,a,i,max,fl:integer;
begin
writeln('Введите кол-во участников>>');
readln(n);
max:=0; fl:=0;
for i:=1 to n do
 begin
 writeln('Введите кол-во правильных ответов, данных участником ',i); 
 readln(a);
 if (a > max) then max:=a;
 if a=0 then fl:=1;
 end;
if fl=1 then writeln('YES') else writeln('NO');
writeln('Победитель набрал ',max,' ');
end.

Пример:
Введите кол-во участников>> 5
Введите кол-во правильных ответов, данных участником 1 15
Введите кол-во правильных ответов, данных участником 2 18
Введите кол-во правильных ответов, данных участником 3 0
Введите кол-во правильных ответов, данных участником 4 8
Введите кол-во правильных ответов, данных участником 5 10
YES
Победитель набрал