Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
трех сажаешь по углам ограждения , двух в центр
var s: string;
begin s : = 'informatica'; writeln(s); writeln(copy(s, 3, 5)); writeln(copy(s, 6, 3)); writeln(copy(s, 8, 3)); writeln(copy(s, 8, 2) + s[5]); end.
1шаг влево
2шага вниз
1шаг направо
1шаг вверх
если с поворотами то примерно так:
повернуться против часовой стрелки
2 шага прямо
повернутся против часовой стерлки
1шаг прямо
повернуться против часовй стрелки
1 шаг прямо
повернуться против часовй стреки
program obmen;
var a,b,c,x,y: integer;
begin
a: =x;
b: =a;
c: =b;
x: =c;
writeln (a,b,c)
end.
Популярные вопросы