ну я тут тебе решила)) хе-хе..
Пишите язык, на котором вам это нужно. Кто-нибудь же поиздевается и напишет на brainfuck-e.
Паскаль:
var a:integer;
begin
readln(a);
writeln(a/2)
end.
Использовать Робот
алг
нач
нц пока не справа свободно
закрасить
вниз
кц
нц пока справа свободно
вниз
кц
нц пока не справа свободно и снизу свободно
закрасить
вниз
кц
нц пока не снизу свободно
закрасить
влево
кц
нц пока снизу свободно
влево
кц
нц пока не снизу свободно и слева свободно
закрасить
влево
кц
кон