Write a program to accept a string and display the abbreviation of the string in QBasic (not in Java)
Answers
Answered by
1
cls
input "";a$
for I=1 to len(a$)
r$=mid$(a$,i,1)
if r$= " " then
print mid$(a$:,I,1+ 1)
print left$(a$,1)
end
input "";a$
for I=1 to len(a$)
r$=mid$(a$,i,1)
if r$= " " then
print mid$(a$:,I,1+ 1)
print left$(a$,1)
end
Similar questions