Южная Корея

489

Гонконг

70

Норвегия

885

Таиланд

45 и 49

Япония

729

Израиль

888

Сингапур

50

Великобритания

73

Швеция

890

Индия

520

Греиия

750

Мексика

893

Вьетнам

529

Кипр

759

Венесуэла

90-91

Австрия

535

Мальта

76

Швейцария

93

Австралия

539

Ирландия

770

Колумбия

955

Малайзия

Приложение 4

Приложение 5

10 CLS

20 INPUT “a1=”; a1

30 INPUT “a2=”; a2

40 INPUT “a3=”; a3

50 INPUT “a4=”; a4

60 INPUT “a5=”; a5

70 INPUT “a6=”; a6

80 INPUT “a7=”; a7

90 INPUT “a8=”; a8

100 INPUT “a9=”; a9

110 INPUT “a10=”; a10

120 INPUT “a11=”; a11

130 INPUT “a12=”; a12

140 INPUT “a13=”; a13

150 s3 = ABS(s3): n = 0: b = 0

160 c = s3

170 s1 = a2 + a4 + a6 + a8 + a10 + a12

180 m = s1 * 3

190 s2 = a1 + a3 + a5 + a7 + a9 + a11

200 s3 = m + s2

210 c = c / 10: n = n + 1

220 IF c < 1 THEN 230 ELSE 210

230 FOR i = n TO 1 STEP -1

240 k = s3 \ 10 ^ (i – 1) – (s3 \ 10 ^ i) * 10

250 b = b + k

260 NEXT i

270 h = 10 – b

280 IF h = a13 THEN PRINT “tovar kachestvenniy” ELSE PRINT “poddelka”



Страницы: 1 | 2 | Весь текст