Регистрация
Закфаныалға
26.04.2022 09:22
Информатика
Есть ответ 👍

решить это задание. 1) Система команд исполнителя РОБОТ, «живущего» в прямоугольном лабиринте на клетчатой плоскости: вверх вниз влево вправо.
При выполнении любой из этих команд РОБОТ перемещается на одну клетку соответственно: вверх ↑, вниз ↓, влево ←, вправо →. Четыре команды проверяют истинность условия отсутствия стены у каждой стороны той клетки, где находится РОБОТ:
сверху свободно снизу свободно
слева свободно справа свободно
Цикл ПОКА <условие> команда выполняется, пока условие истинно, иначе происходит переход на следующую строку. Если РОБОТ начнет движение в сторону стены, он разрушится, и программа прервется.
Сколько клеток приведенного лабиринта соответствуют требованию, что, выполнив предложенную ниже программу, РОБОТ уцелеет и остановится в той же клетке, с которой он начал движение?
НАЧАЛО
ПОКА <сверху свободно> вверх
ПОКА <слева свободно> влево
ПОКА <снизу свободно> вниз
ПОКА <справа свободно> вправо
КОНЕЦ

A) 1
B) 2
C) 3
D) 4

111
284
Посмотреть ответы 1

Ответы на вопрос:

насвай4
насвай4
4,8(23 оценок)
Var i, a, s: integer; begin       readln(a);       for i : = a to 500 do           s : = s + i;       writeln(s); end.2)  var i, a, s, c, b: integer; begin      readln(a, b);       for i : = a to b do      begin          s : = s + i;           c : = c + 1;       end;       writeln(s / c: 4: 2); end.3)const n=10; var i, b, s: integer;     a: array [0..n] of integer; begin      readln(b);       for i : = 0 to n do a[i] : = random(9000);       for i : = 0 to n do          if (a[i] < b) then s : = s + i;       for i : = 0 to n - 2 do          if (a[i+1] = b) then  writeln('(', a[i], '; ', a[i+2], ')');       writeln(s); end.=)

Популярно: Информатика