99. Исполнитель Черепаха действует на песчаной арене, име- ющей форму квадрата со стороной 500 пикселей. В на-
чальный момент времени Черепаха находится в центре
арены, её голова направлена к верхней стороне квадрата,
хвост опущен. Черепаха может выполнять команды:
1) вперёд
Черепаха перемещается на п шагов в
том направлении, куда развёрнута её голова; один шаг
перемещения Черепахи соответствует одному пикселю;
2) вправо
(m) Черепаха изменяет направление дви-
жения на т градусов по часовой стрелке.
При опущенном хвосте Черепаха оставляет на арене
След в виде линии.
а) Определите, что получится после выполнения Че-
репахой следующего алгоритма (считайте размеры
одной клетки равными пяти пикселям).
На какой угол надо повернуть Черепахе, чтобы без
других изменений в этом алгоритме построить пря-
моугольный треугольник?.
2
вправо (270)
вперёд (40)
вправо (90)
вперёд (30)
вправо (120)
вперёд (50)​

200: 2

100|0

50|0

25|0

12|1

6|0

3|0

1|1

0|1

200₁₀=11001000₂

489: 2

244|1

122|0

61|0

30|1

15|0

7|1

3|1

1|1

0|1

489₁₀=111101001₂

543: 2

271|1

135|1

67|1

33|1

16|1

8|0

4|0

2|0

1|0

0|1

543₁₀=1000011111₂

950: 2

475|0

237|1

118|1

59|0

29|1

14|1

7|0

3|1

1|1

0|1

950₁₀=1110110110

1025: 2

512|1

256|0

128|0

64|0

32|0

16|0

8|0

4|0

2|0

1|0

0|1

1025₁₀=10000000001₂

3  учеников этого класса любят все три вида спорта

var i, j, k, p: integer; a, b: array[1..10] of integer;

begin k : = 0; for i : = 1 to 10 do begin a[i] : = random(20) - 10; write(a[i]: 3); if a[i] > 0 then begin k : = k + 1; b[k] : = a[i]; end; end; for i : = 1 to k - 1 do for j : = i + 1 to k do if b[i] > b[j] then begin p : = b[i]; b[i] : = b[j]; b[j] : = p; end; writeln; for i : = 1 to k do write(b[i]: 3); end.

var a: integer; c1, c2, c3, c4: integer;

begin for a : = 1000 to 9999 do begin c1 : = a div 1000; c2 : = (a div 100) mod 10; c3 : = (a div 10) mod 10; c4 : = a mod 10; if (c1 < > c2) and (c1 < > c3) and (c1 < > c4) and (c2 < > c3) and (c2 < > c4) and (c3 < > c4) then writeln(a); end; end.