Гра в камінчики є купка з 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 Zadacha;  // удален символ 1

var a, b, c, d, s, p, r, q: integer;

begin // began заменен на begin

write (‘Ведите первое число=’, a); // В конце вместо , должно быть ;

writeln (‘Ведите второе число=’, b);// В конце вместо , должно быть ;

writeln (‘Ведите третье число=’, c);// В конце вместо , должно быть ;

writeln (‘Ведите четвертое число=’, d);

s:=a+b+c+d;

p:=a*b*c*d;

r:=a-b-c-d;

q:=a div b;

writeln ('Сумма=',s);

writeln ('Произведение=',p);

write ('Разность=',r);

write ('Частное=',q)

end.

Чтобы программа выполнялась нормально, нужно изменить ее следующим образом:

program Zadacha;

var a, b, c, d, s, p, r, q: integer;

begin

write ('Ведите первое число='); read(a);

writeln ('Ведите второе число='); read(b);

writeln ('Ведите третье число='); read(c);

writeln ('Ведите четвертое число='); read(d);

s:=a+b+c+d;

p:=a*b*c*d;

r:=a-b-c-d;

q:=a div b;

writeln ('Сумма=',s);

writeln ('Произведение=',p);

write ('Разность=',r);

write ('Частное=',q)

end.

Также остается неясным, что подразумевалось под "разностью" и "частным". Если "разностью" еще можно назвать выражение a-b-c-d, то a/b - точно не частное. Это только целая часть от деления a на b. Чтобы это было частным, нужно переменную q объявить как real:

program Zadacha;

var a, b, c, d, s, p, r: integer;

var q: real;

begin

...