Создавая циклы с условием для Робота , можно использовать 10 команд проверки условий:
– 8 команд вида [слева/справа/снизу/сверху] [стена/свободно]
– 2 команды вида клетка [закрашена/чистая]
На этом занятии будем выполнять задания, в которых не известно, сколько раз надо выполнять повторяющиеся действия
Пример 1. Составьте алгоритм, закрашивающий все внутренние клетки, прилегающие к стене. Длины стен неизвестны.
Особое внимание обратите на то, что программа должна давать верный результат при любых длинах стен. Проверять работо программы надо несколько раз, создавая различные варианты стартовых обстановок, например, при длине стены 1 клетка, при длине стены 8 клеток.
На рисунках представлены стартовая обстановка и результат.

Вариант решения:
использовать Робот
алг
нач
нц пока слева свободно
закрасить;влево
кц
нц пока снизу свободно
закрасить;вниз
кц
нц пока снизу стена
закрасить;
1 программа:
var a, sum:integer;
begin
writeln('Введите числа (цифра 0 - выход из программы)');
sum:= 0;
readln(a);
while(a <> 0) do begin
sum:= sum + a;
readln(a);
end;
writeln('Сумма чисел = ', sum);
end.
2 программа:
var a, sum:integer;
begin
a:=0;
while(a <= 100) do begin
if (a mod 2 = 0) then
sum:= sum + a;
a:= a + 1;
end;
writeln('Сумма четных чисел = ', sum);
end.
3 программа:
var a, i, N:integer;
begin
writeln('Введите N');
readln(N);
a:=1;
for i:=1 to N do begin
write(a*a, ' ');
a:= a + 1;
end;
end.
