1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 | CLS INPUT "Введите число "; A$ n = 1 : k$ = "" : x$ = "" 10 k$ = MID$ (a$, n, 1 ) IF k$ = "." THEN n =n- 1 : GOTO 20 ELSE x$ = X$ +k$ :n = n+ 1 : GOTO 10 20 IF n MOD 4 = 1 THEN x$ = " 000 " +x$ IF n MOD 4 = 2 THEN x$ = " 00 " +x$ IF n MOD 4 = 3 THEN x$ = " 0 " +x$ PRINT "Получите шестезначное число"; FOR i = 1 TO LEN (x$) STEP 4 b$ = MID$(x$, i, 4 ) IF b$ = " 0000 " THEN b1$ = " 0 " IF b$ = " 0001 " THEN b1$ = " 1 " IF b$ = " 0010 " THEN b1$ = " 2 " IF b$ = " 0011 " THEN b1$ = " 3 " IF b$ = " 0100 " THEN b1$ = " 4 " IF b$ = " 0101 " THEN b1$ = " 5 " IF b$ = " 0110 " THEN b1$ = " 6 " IF b$ = " 0111 " THEN b1$ = " 7 " IF b$ = " 1000 " THEN b1$ = " 8 " IF b$ = " 1001 " THEN b1$ = " 9 " IF b$ = " 1010 " THEN b1$ = "A" IF b$ = " 1011 " THEN b1$ = "B" IF b$ = " 1100 " THEN b1$ = "C" IF b$ = " 1101 " THEN b1$ = "D" IF b$ = " 1110 " THEN b1$ = "E" IF b$ = " 1111 " THEN b1$ = "F" PRINT b1$; NEXT i PRINT "."; FOR i = n + 2 TO LEN (a$) STEP 4 IF (LEN(a$) - n - 1 ) MOD 4 = 1 THEN a$ = a$ + " 000 " IF (LEN(a$) - n - 1 ) MOD 4 = 2 THEN a$ = a$ + " 00 " IF (LEN(a$) - n - 1 ) MOD 4 = 3 THEN a$ = a$ + " 0 " y$ = MID$ (a$, i , 4 ) IF y$ = " 0000 " THEN y1$= " 0 " IF y$ = " 0001 " THEN y1$ = " 1 " IF y$ = " 0010 " THEN y1$ = " 2 " IF y$ = " 0011 " THEN y1$ = " 3 " IF y$ = " 0100 " THEN y1$ = " 4 " IF y$ = " 0101 " THEN y1$ = " 5 " IF y$ = " 0110 " THEN y1$ = " 6 " IF y$ = " 0111 " THEN y1$ = " 7 " IF y$ = " 1000 " THEN y1$= " 8 " IF y$ = " 1001 " THEN y1$ = " 9 " IF y$ = " 1010 " THEN y1$ = "A" IF y$ = " 1011 " THEN y1$= "B" IF y$ = " 1100 " THEN y1$ = "C" IF y$ = " 1101 " THEN y1$ = "D" IF y$ = " 1110 " THEN y1$ = "E" IF y$= " 1111 " THEN y1$ = "F" PRINT y1$; NEXT i END |