нач. пункт:лев ниж угол
1 сместиться на 5 клеток в верх
2 повернуться на 90 градусов в право
3 сместиться на 2 клетки вперёд
4 повернуться на 90 градусов в право
5 сместитьтся на 2 клетки вперёд
6 повернутся на 90 градусов в лево
7 сместится на 2 клетки вперёд
8 повернутся на 90 градусов в лево
9переместиться 2 клетки
10 повт 8 и 9
11 повторить всё это ещё один раз
На паскале :
program task;
var s:byte;
begin
read(s);
case s of
1: writeln('1-2 уровень');
2: writeln('3-4 уровень');
3: writeln('5-6 уровень');
4: writeln('7-8 уровень');
5: writeln('9-10 уровень');
end;
end.
Var
a,b: integer;
begin
read(a);
b:=a mod 2;
a:= (a-b) div 2;
write ('Остаток от деления: ',b,' Целая часть: ',a);
end.
если выполнение именно условий выше <em>и</em> левее
ответ а