В любом слове заменить все буквы а на о — 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$

Leave a Comment