Так здесь все легко если n четное то победит первый при любой игре если n нечетное то победит второй
может ты задачу не до конца дослушал
При вычислении положить длинной стороной содержащие 5 шариков
шарики с нижней половины единицы с верхней пятерки
считать числа надо с право на лево
9*1024*8(это весь информационный объём)/48*6*8(количество символов(без количества строк))=32 строки помещается на 1 странице
Цикл, в котором условие записано после тела цикла, выполнится как минимум 1 раз, а потом начнет проверять условие цикла. Цикл с предусловием может не выполниться ни разу, тк условие проверяется сразу. Цикл с предусловием используется когда у нас есть четкие границы выполнения
// PascalABC.NET 3.3, сборка 1611 от 06.01.2018
// Внимание! Если программа не работает, обновите версию!
begin
var k:= ReadInteger('k =');
var (a,b) :=(1,1);
for var i := 3 to k do
(a,b):= (b,a+b);
Writeln('a) ', b);
(a,b) :=(1,1);
var sum:= 2;
var n:= ReadInteger('n =');
Write('б) 1, 1');
for var i:= 3 to n do
begin
(a,b):= (b,a+b);
Write(', ', b);
sum+= b;
end;
Writeln;
Writeln('в) ', sum.IsEven?'YES':'NO');
end.