Переписать заданную фразу в обратном порядке — QBasic(Бейсик)

disel
1
2
3
4
input"vvedite frazu ",a$
for i=1 to len(a$)
b$=mid$(a$,i,1)+b$
print b$

Тестирование выполнено в программе QB64 ( Скачать )

Похожие записи/страницы:

Leave a Comment