. На бесконечном поле имеется стена, длины отрезков стены неизвестны. Стена состоит из одного вертикального и трёх горизонтальных отрезков (отрезки стены
расположены буквой «Е»). Все отрезки неизвестной длины. Робот находится в клетке,
расположенной непосредственно над верхней стеной. На рисунке указан один из
возможных расположения стен и Робота (Робот обозначен буквой «»).
Напишите для Робота алгоритм, закрашивающий все клетки, расположенные справа у
вертикальной стены в верхней части буквы «Е». Робот должен закрасить только
клетки, удовлетворяющие данному условию. Например, для приведённого справа
рисунка Робот должен закрасить следующие клетки (см. рисунок).
Конечное расположение Робота может быть произвольным. При исполнении алгоритма
Робот не должен разрушиться. Алгоритм должен решать задачу для произвольного
размера поля и любого допустимого расположения стен ссылка на задание ниже
https://f1.school.mosreg.ru/get.aspx/52/1f26810c2fd74932afab16d26ae59e1e.pdf
ТОМУ КТО ПРАВИЛЬНО И БЫСТРО РЕШИТ НАКИНУ
Нужно нарисовать стрелки вниз.
От треугольника в котором написано "остались платья?" нужно провести стрелку со словом "ДА" до второй черной стрелки(после фразы "выйди из шкатулки).Рамку "остались платья?" тоже надо обвести зелёным цветом.
Перед словом "конец" есть пустая рамка,там напиши "иди в шкатулку",а у стрелки которая ведёт к этой рамке нужно написать "НЕТ"
И последнее.От треугольной рамки с вопросом "все банты пришиты?" идёт стрелка вниз,рядом с ней напиши слово "ДА".И нужно самому провести стрелку до стрелки вниз от фразы "подойди к платью" и у новой стрелки написать слово "НЕТ"
Мы делали это в классе,в году поэтому должно быть правильно:)
var
n: integer;
begin
read(n);
Write((n div 100 mod 2 = 0) or (n mod 10 mod 2 = 0) or (n mod 100 div 10 mod 2 = 0));
end.
// 11.
var
n: integer;
a,b,c:integer;
begin
read(n);
a:=n div 100; b:=n mod 100 div 10; c:=n mod 10;
Write((a+b=c)or(a+c=b)or(c+b=a));
end.
// 12.
var
n: integer;
a,b,c,d:integer;
begin
read(n);
a:=n div 1000; b:=n mod 1000 div 10 div 10; c:=n mod 100 div 10; d:=n mod 10;
Write(a+b+c+d-1=a*b*c*d);
end.
// 13.
var
n,k: integer;
a,b,c:integer;
begin
Write('n,k= '); read(n,k);
a:=n div 100; b:=n mod 100 div 10; c:=n mod 10;
Write((b+c<k)and(a>5));
end.