• Решите, пожалуйста задачу в Кумире, на ВЕТВЛЕНИЯ.
    Срочно нужно!
    Даю 95 баллов.

    question img

Ответы 11

  • это паскаль,но это все что я смог сделать((
  • нач
  • ??
  • нечайно
    • Автор:

      bam-bam
    • 6 лет назад
    • 0
  • щяс попробую
    • Автор:

      kevin
    • 6 лет назад
    • 0
  • ну вот и у меня в кумире не выходит
    • Автор:

      lolaqbyw
    • 6 лет назад
    • 0
  • 7 переменных нужно
    • Автор:

      alissa42
    • 6 лет назад
    • 0
  • ой
    • Автор:

      chris32
    • 6 лет назад
    • 0
  • 3 переменных
    • Автор:

      felixjolx
    • 6 лет назад
    • 0
  • var N:integer=600; LABIRINT:array[0..600,0..600] of integer; ... procedure setBlankAsDeadblockRec(x,y:integer); var k:integer; begin k:=0; if LABIRINT[x,y]=blank then begin if LABIRINT[x-1,y]<>BLANK then k:=k+1; if LABIRINT[x,y-1]<>BLANK then k:=k+1; if LABIRINT[x+1,y]<>BLANK then k:=k+1; if LABIRINT[x,y+1]<>BLANK then k:=k+1; if k=4 then LABIRINT[x,y]:=DEADBLOCK; if k=3 then begin LABIRINT[x,y]:=DEADBLOCK; if LABIRINT[x-1,y]=BLANK then setBlankAsDeadblockRec(x-1,y); if LABIRINT[x,y-1]=BLANK then setBlankAsDeadblockRec(x,y-1); if LABIRINT[x+1,y]=BLANK then setBlankAsDeadblockRec(x+1,y); if LABIRINT[x,y+1]=BLANK then setBlankAsDeadblockRec(x,y+1); end; end; end; procedure setDeadblock; var i,j:integer; begin for i:=1 to N-1 do for j:=1 to N-1 do setBlankAsDeadblockRec(i,j); end;
    • Автор:

      sparky9
    • 6 лет назад
    • 0
  • начнцпока справа свободно вправокцнцпока снизу свободно внизкцнцпока слева не свободно вверхкцнцпока слева свободно влевокцкон
    • Автор:

      codichen
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years