Создается файл с произвольным именем. Записать в файл строку, введенную пользователем. Создать второй файл, с именем содержащим имя первого файла с добавлением символа «1» в конце имени. Прочитать из первого файла и записать во второй файл символы в обратном порядке — Basic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
OPEN "file.txt" FOR OUTPUT AS #1
PRINT "vvedite stroku"
INPUT a$
PRINT #1, a$
CLOSE
OPEN "file.txt" FOR INPUT AS #2
INPUT #2, a$
CLOSE
FOR i = 1 TO LEN(a$)
b$ = MID$(a$, i, 1) + b$
NEXT
OPEN "file1.txt" FOR OUTPUT AS #3
PRINT #3, b$
CLOSE

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

Leave a Comment