Составьте программу, которая запрашивает натуральное число N (N<=1000) и выдает это же число в десятичном представлении и на естественном языке. например 7-семь, 204-двести четыре- QBasic(Бейсик)

disel
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
55
56
CLS
PRINT "write number N<1000"
INPUT n$
  
lengh = LEN(n$)
  
IF lengh = 2 THEN n$ = "0" + n$
IF lengh = 1 THEN n$ = "00" + n$
  
  
PRINT n$
  
  
ch$ = MID$(n$, 1, 1)
  
SELECT CASE ch$
CASE "0": PRINT " ";
CASE "1": PRINT "CTo";
CASE "2": PRINT "Dvesti";
'и так до 9
END SELECT
  
PRINT " ";
  
ch$ = MID$(n$, 2, 1)
  
SELECT CASE ch$
CASE "0": PRINT "";
CASE "1": flag = 1
CASE "2": PRINT "DvadcaTb";
'и так до 9
END SELECT
  
PRINT " ";
  
ch$ = MID$(n$, 3, 1)
  
IF flag = 1 THEN GOTO 10
  
SELECT CASE ch$
CASE "0": PRINT "";
CASE "1": PRINT "Odin";
CASE "2": PRINT "Dva";
'и так до 9
END SELECT
  
END
  
10
SELECT CASE ch$
CASE "0": PRINT "DeCiaTb";
CASE "1": PRINT "OdinnadcaTb";
CASE "2": PRINT "DvennadcaTb";
' и так до 9
END SELECT
END

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

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

Leave a Comment