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

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
INPUT "vvedite nijnyuyu granicu m=", m
INPUT "vvedite verhnyuyu granicu n=", n
 
OPEN "file.txt" FOR OUTPUT AS #1
FOR i = 1 TO 10
    PRINT "vvedite chislo iz intervala ["; m; ","; n; "]"
    INPUT "", c
    PRINT #1, c
NEXT
CLOSE
OPEN "file.txt" FOR INPUT AS #2
OPEN "file1.txt" FOR OUTPUT AS #3
FOR i = 1 TO 10
    INPUT #2, c
    IF c MOD 2 <> 0 THEN PRINT #3, c
NEXT
CLOSE

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

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

Leave a Comment