У исполнителя Робот есть четыре команды перемещения (вверх, вниз, влево,
вправо). При выполнении каждой из них Робот перемещается на одну клетку в
соответствующем направлении в прямоугольном лабиринте. Для проверки
истинности условия отсутствия стены у клетки, в которой находится Робот,
используются команды: сверху свободно, снизу свободно, слева свободно, справа
свободно. Если Робот начнет движение в сторону находящейся рядом с ним стены, то
он разрушится, и выполнение программы прервется,
нач
пока <справа свободно> вправо
пока <сверху свободно> вверх
пока <слева свободно> влево
пока <снизу свободно> вниз
кон
Количество клеток в лабиринте, соответствующих требованию, что, выполнив
предложенную программу, Робот уцелеет и остановится в той же клетке, с которой он
начал движение, равно:
Сделай импорт файла в любой удобный для тебя интерпритатор
Далее задай путь и сделай переменную, равную символам в файле
path = 'ПУТЬ'
string = open(path).readline()
далее перебери символы в файле по условию, задай 2 новых переменных k и maximum, где maximum будет максимальной подстроки
k = 0
maximum = 0
for sym in string:
if sym == 'A' or sym == 'B' or sym == 'C':
k += 1
if k > maximum:
maximum = k
else:
k = 0
print(maximum)
результатом выведется максимальная длинна такой подстроки
Объяснение:
//PascalABC.NET
uses GraphABC;
var c: integer;
begin
window.IsFixedSize := true;//запрет изменения размера экрана
window.Clear(cllightblue);//очистка экрана синим цветом
pen.Color := clred;//меняем цвет пера на красный
for var i := 0 to 19 do//цикл для отрисовки линий
begin
c := (window.Height div 19) * i;//сдвиг линнии по y
line(0, 0 + c, window.Width, window.Height - c);//рисуем линию
end;
end.
Объяснение:
uses graphabc;
begin
circle(50,50,50);
circle(50,50,20);
circle(150,50,50);
circle(150,50,20);
circle(250,50,50);
circle(250,50,20);
circle(350,50,50);
circle(350,50,20);
circle(450,50,50);
circle(450,50,20);
circle(550,50,50);
circle(550,50,20);
end.