Записать программу для робота (кумир робот находится в левом верхнем углу в лабиринте шириной в одну клетку. лабиринт спускается в правый нижний угол поля. длина лабиринта неизвестна, количество поворотов тоже неизвестно, известно только, что движение по лабиринту возможно вправо и вниз. использовать цикл и ветвление.

нц пока снизу свободно

вниз

кц

нц пока справа свободно направо

кц

кон

вроде так

нц пока снизу свободно

вниз

кц

нц пока справа свободно направо

кц

кон

Текст программы (Pascal)
var
  a,b,c,d,e:byte;
  k:integer;
begin
  k:=0;
  for a:=1 to 9 do begin
    for b:=0 to 9 do
      if b<>a then begin
        for c:=0 to 9 do
          if (c<>a) and (c<>b) then begin
            for d:=0 to 9 do
              if (d<>a) and (d<>b) and (d<>c) then begin
                e:=0;
                repeat
                  if a*c-c*e=a-b+c+d+e then Inc(k);
                  e:=e+2
                until e<9
              end
          end
      end
  end;
  Writeln(k)
end.

Тестовое решение:
190

Текст программы (Pascal)
var
  a,b,c,d,e:byte;
  k:integer;
begin
  k:=0;
  for a:=1 to 9 do begin
    for b:=0 to 9 do
      if b<>a then begin
        for c:=0 to 9 do
          if (c<>a) and (c<>b) then begin
            for d:=0 to 9 do
              if (d<>a) and (d<>b) and (d<>c) then begin
                e:=0;
                repeat
                  if a*c-c*e=a-b+c+d+e then Inc(k);
                  e:=e+2
                until e<9
              end
          end
      end
  end;
  Writeln(k)
end.

Тестовое решение:
190