Поделитесь своими знаниями, ответьте на вопрос:
На бесконечном поле есть горизонтальная и вертикальная стены. От правогоконца горизонтальной стены на некотором расстоянии отходит вертикальнаястена. Длины стен неизвестны. Ширина прохода между правым концом горизонтальной стены и нижним концом вертикальной стены неизвестны. Робот находится вклетке, расположенной непосредственно над горизонтальной стеной у еёлевого конца.На рисунке указан один из возможных расположения стен и Робота(Робот обозначен буквой «Р»Напишите для Робота алгоритм, закрашивающий все клетки, расположенныенепосредственно левее вертикальной стены. Проход долженостаться незакрашенным. Робот должен закрасить только клетки, удовлетворяющие данному условию. Например, для приведённого рисунка Робот должен закрасить следующие клетки (см. рисунок).
Begin
Writeln('Привет!');
Writeln('Меня зовут Саша!');
Writeln('Я студентка 2-ого курса начального образования!');
Writeln('Я будущий учитель младших классов...');
end.
2.
var n:Integer;
Begin
Read(n);
Writeln('Квадрат =',n*n);
end.
3.
var a:Integer;
Begin
Read(a);
Writeln('S = ',a*a);
Writeln('P = ',4*a);
end.
4. var n:Integer;
Begin
Read(n);
Writeln(n+10);
end.
5. var a,b:Integer;
Begin
Read(a,b);
Writeln(' S = ',a*b);
Writeln(' P = ',2*(a+b));
end.
6. var a,b,c:Integer;
Begin
Read(a,b,c);
Writeln('Сума = ',a+b+c);
end.