4. Скориставшись картою на с. 38, дайте відповіді: 1) На які адміністративно-тери- торіальні одиниці поділено Україну? Які з них мають найбільшу територію? 2) Якими об- ластями протікає Дніпро? 3) З якими дер- жавами межує Україна?
Задание №1 CLS DIM A(20), B(20) DATA -6.4, 5.6, -0.1, 46.7, 7, -3.8, 0.23, 6 FOR i = 1 TO 8 READ A(i) PRINT i, A(i) NEXT i PRINT "" FOR i = 1 TO 8 B(i) = A(i) * 5 PRINT i, B(i) NEXT i PRINT "" FOR i = 1 TO 8 PRINT i, A(i) * B(i) NEXT i PRINT "" i = 5 PRINT i, A(i) i = 1 PRINT i, B(i)
Задание №2 CLS INPUT "vvod A"; A c1 = INT(A / 1000) A = A - 1000 * c1 c2 = INT(A / 100) A = A - 100 * c2 c3 = INT(A / 10) c4 = A - 10 * c3 S$ = "No" IF c1 = c2 THEN S$ = "Es" IF c1 = c3 THEN S$ = "Es" IF c1 = c4 THEN S$ = "Es" IF c2 = c3 THEN S$ = "Es" IF c2 = c4 THEN S$ = "Es" IF c3 = c4 THEN S$ = "Es" PRINT S$, c1, c2, c3, c4
Задание №1 CLS DIM A(20), B(20) DATA -6.4, 5.6, -0.1, 46.7, 7, -3.8, 0.23, 6 FOR i = 1 TO 8 READ A(i) PRINT i, A(i) NEXT i PRINT "" FOR i = 1 TO 8 B(i) = A(i) * 5 PRINT i, B(i) NEXT i PRINT "" FOR i = 1 TO 8 PRINT i, A(i) * B(i) NEXT i PRINT "" i = 5 PRINT i, A(i) i = 1 PRINT i, B(i)
Задание №2 CLS INPUT "vvod A"; A c1 = INT(A / 1000) A = A - 1000 * c1 c2 = INT(A / 100) A = A - 100 * c2 c3 = INT(A / 10) c4 = A - 10 * c3 S$ = "No" IF c1 = c2 THEN S$ = "Es" IF c1 = c3 THEN S$ = "Es" IF c1 = c4 THEN S$ = "Es" IF c2 = c3 THEN S$ = "Es" IF c2 = c4 THEN S$ = "Es" IF c3 = c4 THEN S$ = "Es" PRINT S$, c1, c2, c3, c4
CLS
DIM A(20), B(20)
DATA -6.4, 5.6, -0.1, 46.7, 7, -3.8, 0.23, 6
FOR i = 1 TO 8
READ A(i)
PRINT i, A(i)
NEXT i
PRINT ""
FOR i = 1 TO 8
B(i) = A(i) * 5
PRINT i, B(i)
NEXT i
PRINT ""
FOR i = 1 TO 8
PRINT i, A(i) * B(i)
NEXT i
PRINT ""
i = 5
PRINT i, A(i)
i = 1
PRINT i, B(i)
Задание №2
CLS
INPUT "vvod A"; A
c1 = INT(A / 1000)
A = A - 1000 * c1
c2 = INT(A / 100)
A = A - 100 * c2
c3 = INT(A / 10)
c4 = A - 10 * c3
S$ = "No"
IF c1 = c2 THEN S$ = "Es"
IF c1 = c3 THEN S$ = "Es"
IF c1 = c4 THEN S$ = "Es"
IF c2 = c3 THEN S$ = "Es"
IF c2 = c4 THEN S$ = "Es"
IF c3 = c4 THEN S$ = "Es"
PRINT S$, c1, c2, c3, c4
CLS
DIM A(20), B(20)
DATA -6.4, 5.6, -0.1, 46.7, 7, -3.8, 0.23, 6
FOR i = 1 TO 8
READ A(i)
PRINT i, A(i)
NEXT i
PRINT ""
FOR i = 1 TO 8
B(i) = A(i) * 5
PRINT i, B(i)
NEXT i
PRINT ""
FOR i = 1 TO 8
PRINT i, A(i) * B(i)
NEXT i
PRINT ""
i = 5
PRINT i, A(i)
i = 1
PRINT i, B(i)
Задание №2
CLS
INPUT "vvod A"; A
c1 = INT(A / 1000)
A = A - 1000 * c1
c2 = INT(A / 100)
A = A - 100 * c2
c3 = INT(A / 10)
c4 = A - 10 * c3
S$ = "No"
IF c1 = c2 THEN S$ = "Es"
IF c1 = c3 THEN S$ = "Es"
IF c1 = c4 THEN S$ = "Es"
IF c2 = c3 THEN S$ = "Es"
IF c2 = c4 THEN S$ = "Es"
IF c3 = c4 THEN S$ = "Es"
PRINT S$, c1, c2, c3, c4