1. II.
  2. III.
  3. ,
  4. ,
  5. , '
  6. ֲ,

' . ' "aaa3.dat" ' (OPEN-FOR OUTPLT-AS ff). PRINT WRITE ( 30). CLOSE.

5 '* * * * * * * * * * * * * * * * * *

10 OPEN ". FOR OUTPUT AS ^ 3

20FORi = 1TO10

30 PRINT # 3, i: ' WRITE # 3, i

40 NEXT i

50 CLOSE # 3

. OPEN INPUT, INPUT .

'* (* * * * * * * * * * * * * * * * * *

60 OPEN "aa3.dat" FOR INPUT AS # 2 '

70 FOR i = 1 TO 10

80 INPUT # 2, a (i)

90 PRINT a (i)

100 NEXTi

110 CLOSE # 2

, APPEND.

'

120 OPEN "aa3.dat" FOR APPEND AS # 1

130 WRITE # 1, 13

140 CLOSE # 1

, . 10. , "" 11, "" - 12 .. 26 , 3, .

75(. 27 sekret)

5 '* * * * * * - * * * * * * * * * * * * * * * *

10 INPUT " "; $ 23 5 = "'"

30 $ = ""

40 FOR i = 1 LEN (a $)

50 FOR j = 1 TO LEN (c $)

60 IF MID $ (a $, i, 1) - MID $ (c $, j, 1) THEN k = j: GOTO 90

70 NEXT j

80 PRINT " ": GOTO 160

90 kk = k + 10

100 x $ =x $ + STR $ (kk)

110 NEXT i

120 OPEN "letter.txt" FOR OUTPUT AS # 1

130 PRINT # 1, x $

140 CLOSE 1

150 PRINT " -"; x $

160 END

, ' letter.txt.

, .

76 (. 27 retsek)

5 '* * * * * * * * * - * * * * * * * * - * * * *

10 OPEN "letter.txt" FOR INPUT AS # 1

20 INPUT tl, a $

30 CLS

40 PRINT a $

50 c $ ="'"

60 x $ =""

70 FOR i =1 TO LEM (a $) STEP 3

SO k = VAL (MID $ (a $, i, 2))

90 k =k - 10

100 x $ =x $ + MID $ (c $, k, 1)

110 NEXT i

120 CLOSE # 1

130 PRINT " -"; x $

140 END




˲ ̲ | ̲, вͲ | | | Ѳ -- | Ѳ | ² | Ͳ Ҳ | ԲͲ Ҳ | |

© um.co.ua -