3 DIM i As Int, j As Int, P As Int, K As Int
7 P = 0 : K = i
9 If NAZ$=RM$(j) Then P = P + KOL Else RM$(j) = NAZ$ : P = KOL
11 KM(i) = P
Вроде бы так
Ctrl c. ctrl v. сочетание клавиш
В последовательности всего два символа, длина - 7 Таких последовательностей будет 2^7 = 128
<em>// PascalABC.NET 3.2, сборка 1488 от 21.06.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
ReadSeqReal('10 чисел через пробел:',10).Reverse.Println
end.
<u>Пример</u>
10 чисел через пробел: 3.6 -2.17 5 12.7 0 1e-12 82 3.18e6 -263 3.14
3.14 -263 3180000 82 1E-12 0 12.7 5 -2.17 3.6