с приведенных в учебнике фрагменты кодированный таблица ASCII закодируйте двоичное в форме свою фамилию и имя записан латинскими буквами ПРОНЮШКИНА ВАЛЕРИЯ​

0.04.2020

Сообщений: 6

1

Количество маршрутов в прямоугольной таблице

10.05.2020, 18:11. Просмотров 6573. ответов 4

Метки нет (Все метки)

приветствую вас, участники форума!

очень нуждаюсь в вашей в решении задачи на сайте Сириус.

Задание

В прямоугольной таблице N×M вначале игрок находится в левой верхней клетке. За один ход ему разрешается перемещаться в соседнюю клетку либо вправо, либо вниз (влево и вверх перемещаться запрещено). Посчитайте, сколько есть у игрока попасть в правую нижнюю клетку.

Входные данные

Вводятся два числа N и M — размеры таблицы 1≤N≤10,1≤M≤10.

Выходные данные

Выведите искомое количество .

Пример

Ввод

1 10

Вывод

1

Решения, которые работают, но на сколько верно и сайт (Сириус) их не принимает.

№1

PythonВыделить код

1

2

3

4

5

6

7

n, m = map(int,input().split())

F = [[0]*(m+1) for i in range (n+1)]

F[1][1] = 1

for i in range (2, n+1):

for j in range (2, m+1):

F[i][j] = F[i-1][j-2]+[i-2][j-1]

print (F[n][m])

№2

PythonВыделить код

1

2

3

4

5

from math import factorial

N = int(input())-1

M = int(input())-1

res = factorial(N+M)//(factorial(N)*factorial(M))

print(res)

1. В "реальном мире" это решается примерно так:

// PascalABC.NET 3.1, сборка 1198 от 11.03.2016
begin
  var a:=ArrRandom(ReadInteger('n='),0,2); a.Println;
  a.Sorted.Println
end.

Тестовое решение:
n= 15
1 2 0 2 2 0 2 0 2 0 0 1 0 0 2
0 0 0 0 0 0 0 1 1 2 2 2 2 2 2

2. Но, поскольку считается, что школьникам больше заняться нечем, их заставляют писать примерно в таком стиле (и время займет, и ощибок понаделают):

// PascalABC.NET 3.1, сборка 1198 от 11.03.2016
const
  nn=100;
var
  i,j,n,t:integer;
  a:array[1..nn] of integer;
begin
  Write('n='); Read(n);
  Randomize;
  for i:=1 to n do begin
    a[i]:=Random(3);
    Write(a[i],' ')
    end;
  Writeln;
  for i:=1 to n-1 do
    for j:=1 to n-1 do
      if a[j]>a[j+1] then begin
        t:=a[j]; a[j]:=a[j+1]; a[j+1]:=t
        end;
  for i:=1 to n do Write(a[i],' ');
  Writeln;
end.

Тестовое решение:
n=15
0 1 1 0 2 1 0 2 1 2 1 0 0 2 0
0 0 0 0 0 0 1 1 1 1 1 2 2 2 2