Времени мало вывести на экран вертикально диапазон чисел от 1 до 10 -10 раз. /паскаль/ это решение не правильно: var i: integer; begin for i: =1 to 10 do writeln('12345678910') end.
Если бы задание было Повтори 6 [Направо 60 Вперед 20] тогда был бы ответ (1).
В данном случае черепашка:
первый повтор - повернёт на 60° пройдёт 20 повернёт на 60°
второй повтор - повернёт на 60° <-- Это и последний поворот предыдущего повтора вместе дают 120° пройдёт 20 повернёт на 60°
третий повтор - повернёт на 60° <-- Это и последний поворот предыдущего повтора вместе дают 120° пройдёт 20 <-- Вот точка, из которой черепашка отправилась в путь повернёт на 60°
четвёртый повтор - повернёт на 60° <-- Это и последний поворот предыдущего повтора вместе дают 120° пройдёт 20 <-- Вот точка, в которой была черепашка после того, как шагов в первый раз! повернёт на 60° Правильный ответ : Правильный шестиугольник
// Внимание! Если программа не работает, обновите версию!
// PascalABC.NET 3.3, сборка 1634 от 14.02.2018
// Внимание! Если программа не работает, обновите версию!
begin
SeqGen(10,i->10*((i+1).ToString+' ')).Printlines
end.
Результат
1 1 1 1 1 1 1 1 1 1
2 2 2 2 2 2 2 2 2 2
3 3 3 3 3 3 3 3 3 3
4 4 4 4 4 4 4 4 4 4
5 5 5 5 5 5 5 5 5 5
6 6 6 6 6 6 6 6 6 6
7 7 7 7 7 7 7 7 7 7
8 8 8 8 8 8 8 8 8 8
9 9 9 9 9 9 9 9 9 9
10 10 10 10 10 10 10 10 10 10