Переведем все числа в степени 8.
Ответ: 3 единицы.
Program sp;
var
n, x: integer;
1: label;
begin
n:= 13;
label main;
writeln(n);
writeln('Можно взять 1, 2 или 3 спички. Ваш ход');
readln(x);
n := n - x;
if n > 0 then
begin
writeln('Мой ход. Я возьму', 4 - x);
n := n - (4 - x);
end
end
if n <= 0 then
writeln('Вы проиграли!')
else
goto 1;
end
end.
60 дней ответ
1) берешь арифметическую прогрессию 5,6,7 и тд
2)в итоге за 59 дней он придумает 2006 песенок а за 60 он как раз допридумывает