var
n: <em>integer </em>:= 50;
begin
if (n mod 2 = 0) then
dec(n);
while (n >= 1) do
begin
writeln(n);
n -= 2;
end;
<span>end.</span>
А) 49(10)= 1211(в 3-ичная)
49(10(= 144(в 5-ричная)
б) 156(10)= 12210(в 3-ичная)
156(10)= 1111(в 5-ричная)
в) 2 (10)
Ответ:
104сек
Объяснение:
вгчгэ1жязйжсг руд ш3сщ4рм93
Алгоритм выигрыша в этой игре очень простой: каждый раз надо забирать из кучки 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