Вывести на печать сумму всех позиций заданного символа в данной строке

Категория: Basic

2011-12-02 16:47:17

Вводится любая строка.

code: #basic

INPUT"vvedite stroku ",a$
INPUT"vvedite simvol ",b$
FOR i=1 TO LEN(a$)
IF MID$(a$,i,1)=b$ THEN s=s+i
NEXT
PRINT s

автор: кот Бегемот

Поделиться:

Sample Code