1 2 3 4 5 | input a$for i=1 to len(a$)if mid$(a$,i,1)="!"then k=k+1 else if k=1 then n=n+1nextprint n |
Тестирование выполнено в программе QB64 ( Скачать )
1 2 3 4 5 | input a$for i=1 to len(a$)if mid$(a$,i,1)="!"then k=k+1 else if k=1 then n=n+1nextprint n |
Тестирование выполнено в программе QB64 ( Скачать )