В любом слове заменить все буквы а на о
Категория: Basic
2011-12-14 16:03:53
code: #basic
INPUT"vvedite slovo ",a$ FOR i=1 TO LEN(a$) IF MID$(a$,i,1)="a"THEN MID$(a$,i,1)="o" NEXT PRINT a$
автор: кот Бегемот
Поделиться:
INPUT"vvedite slovo ",a$ FOR i=1 TO LEN(a$) IF MID$(a$,i,1)="a"THEN MID$(a$,i,1)="o" NEXT PRINT a$
автор: кот Бегемот