Робо-сумо. Урок 1 Определи количество датчиков цвета во время соревнования робо-сумо.
2
1
4
3

Назад

Проверить

Input s$ k = len(s$) + 1 for i = 1 to k     if mid$(s$, i, 1) = " " then n = n + 1 'считаем число слов next i n = n + 1 dim f$(n) dim z(n) j = 1 for i = 1 to k 'разрезаем фразу на слова и заносим их в массив f     t$ = mid$(s$, i, 1)     f$(j) = f$(j) + t$     if t$ = " " then j = j + 1 next i f$(n) = f$(n) + " " for i = 1 to n 'считаем в сс с основанием n, исключая повтор цифр     z(i) = i next i do while z(0) = 0     z(n) = z(n) + 1     k = n     do while z(k) > n         z(k) = 1         k = k - 1         z(k) = z(k) + 1       loop     p = 0     for i = 1 to n - 1 'исключаем числа с повторяющимися цифрами         for j = i + 1 to n             if z(i) = z(j) then p = 1         next j     next i     if p = 0 then 'выводим соответствующие числам слова         for j = 1 to n             print f$(z(j));         next j         print     end if loop