1) DIM A(9) RANDOMIZE TIMER FOR i = 1 TO 9 STEP 3 A(i) = i A(i + 1) = INT(41 * RND) + 10 A(i + 2) = INT(A(i + 1) / A(i)) NEXT i FOR i = 1 TO 9 PRINT "A("; i; ")="; A(i) NEXT i END
2) DIM A(10) RANDOMIZE TIMER PRINT "Иcxoдный мaccив: " FOR i = 1 TO 10 A(i) = INT(RND * 10) + 1 PRINT A(i), NEXT i PRINT S = 0 FOR i = 1 TO 10 IF A(i) MOD 2 = 0 THEN S = S + A(i) NEXT i PRINT "Cyммa чeтныx элeмeнтoв = "; S END
№1. Тысячи путей ведут к заблуждению, к истине - только один. Для начала надо посчитать, сколько всего символов в данном предложении, следует считать знаки препинания и пробелы. Посчитав все знаки (Итого:57), мы получаем, что вес предложения 57 байт, переводим в биты, то есть умножаем на 8 (1 байт = 8 бит): 57*8=456.
№2. Кодировка Unicode - это кодировка, каждый символ которой весит 16 бит. Итак, я посчитала количество знаков в предложении (Итого:32). Дальше: 16*32=512 бит.
№3. Итак, мы видим, что из 16-битной кодировки получилась 8-битная, а это значит, что она уменьшилась вдвое. 8x=800 x=100 (у тебя ошибка, я посмотрела аналогичные задания, отличающиеся только значениями)
DIM A(9)
RANDOMIZE TIMER
FOR i = 1 TO 9 STEP 3
A(i) = i
A(i + 1) = INT(41 * RND) + 10
A(i + 2) = INT(A(i + 1) / A(i))
NEXT i
FOR i = 1 TO 9
PRINT "A("; i; ")="; A(i)
NEXT i
END
2)
DIM A(10)
RANDOMIZE TIMER
PRINT "Иcxoдный мaccив: "
FOR i = 1 TO 10
A(i) = INT(RND * 10) + 1
PRINT A(i),
NEXT i
PRINT
S = 0
FOR i = 1 TO 10
IF A(i) MOD 2 = 0 THEN S = S + A(i)
NEXT i
PRINT "Cyммa чeтныx элeмeнтoв = "; S
END