1 2 3 4 5 6 7 8 9 10 11 12 | data "ж","ш","ч","щ"dim a$(4)for i=1 to 4read a$(i)nextinput b$for i=1 to len(b$)for j=1 to 4if mid$(b$,i,1)=a(j)then k=k+1nextnextprint k |
Тестирование выполнено в программе QB64 ( Скачать )