FOR i=0 TO 9
A(i) = 9-i
NEXT i
FOR i = 0 TO 4
k = A(i)
A(i) = A(9-i)
A(9-i) = k
NEXT i
DIM k, s AS INTEGER
s = 0
k = 0
WHILE s < 1024
s = s + 10
k = k + 1
WEND
PRINT k
a = 40
b = 80
b = - a - 2 * b
IF a < b THEN
c = b - a
ELSE
c = a - 2 * b
END IF
ID | Фамилия_И.О. | Пол |
71 | Иванов Т.М. | М |
85 | Петренко И.Т. | М |
13 | Черных И.А. | Ж |
42 | Петренко А.И. | Ж |
23 | Иванова А.И. | Ж |
96 | Петренко Н.Н. | Ж |
82 | Черных А.Н. | M |
95 | Цейс Т.Н. | Ж |
10 | Цейс Н.А. | М |
ID_Родителя | ID_Ребенка |
23 | 71 |
13 | 23 |
85 | 23 |
82 | 13 |
95 | 13 |
85 | 42 |
82 | 10 |
95 | 10 |