5. На бесконечном поле имеется стена, длины отрезков cтены неизвестны. Стена состоит из одного вертикального и трёх горизонтальных отрезков (отрезки стены расположены буквой "Е"). Все отрезки неизвестной длины. Робот находится в клетке, расположенной непосредственно снизу от правого конца нижнего горизонтального отрезка. Нужно закрасить все клетки, расположенные непосредственно сверху от верхнего горизонтального отрезка.

Если задание для Кумира, то вот программа:

использовать Робот

алг

нач

нц пока сверху стена

влево

кц

вверх

нц пока справа стена

вверх

кц

вправо

нц пока снизу стена

закрасить

вправо

кц

кон

var

i,n: integer;

a: array [1..100] of integer;

begin

readln(n);

for i: =1 to n do

begin

if i mod 2 =0 then a[i]: =i-3

else a[i]: =i+3;

writeln(a[i]);

end;

end.

если n это количество чисел, начинаем с 3

var

i,n,p: integer

begin

readln(n);

i: =3;

p: =1;

while i< =3*n do

begin

p: =p*i;

i: =i+3;

end;

writeln(p);

end.

если n это верхняя граница чисел

var

i,n,p: integer

begin

readln(n);

for i: =3 to n

if i mod 3 = 0 then

p: =p*i;

writeln(p);

end.