Составьте программу рисования узора. Начальное положение Робота отмечено символом ◊.

145

289

Посмотреть ответы 1

Ответы на вопрос:

MaryGaloyan

Информатика

4,6(70 оценок)

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) 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 'делаем сортировку массива for j = 1 to n if left$(f$(i), 1) < left$(f$(j), 1) then p$ = f$(i) f$(i) = f$(j) f$(j) = p$ end if next j next i for i = 1 to n print f$(i); next i