var steps := 12; // За кол-во ходов var Xend := 6; // В точку с координатой X var Yend := 4; // ... и Y
var vars := 0; procedure Find(step, X, Y : Integer);
begin if step = 0 then vars += (X = Xend) and (Y = Yend) ? 1 : 0 else begin Find(step - 1, X + 1, Y ); Find(step - 1, X - 1, Y ); Find(step - 1, X , Y + 1); Find(step - 1, X , Y - 1); end; end; begin Find(steps, 0, 0); Print(vars); end.
// PascalABC.NET 3.3, сборка 1611 от 06.01.2018 // Внимание! Если программа не работает, обновите версию!
begin var W:=ArrGen(ReadInteger('n='),i->2*Sin(i+1)+3*Cos(i+1)); Write('W: '); W.Println; var R:=W.Where(t->t>W.Average).ToArray; Write('R: '); R.Println; Writeln('Позиция мах: ',R.IndexMax+1) end.
Инструкция: В/О С/П число_1 С/П число_2 С/П ... число_27 С/П.
После получения 27-го числа на индикаторе результат.