Длинный текст (ранее — тип данных "Поле MEMO") В предыдущих версиях Access тип данных "Поле MEMO" использовался для хранения больших объемов текста, а тип данных "Текстовый" — для хранения более коротких строк (до 255 символов).
В цикле, кажется, так:
for I:=1 to N do
If (Mas[I] mod 2 = 0) and (Mas[I] mod 3 = 0) and (Mas[I+1] mod 2 = 0) and (Mas[I+1] mod 3 = 0)
then Sum:=Sum+1;
Перед этим, конечно, нужно заполнить массив. N - число элементов и обнулить сумму. Можно заполнить в том же цикле:
Sum:=0;
writeln ('Число элементов:');
readln(n);
writeln ('Числа:')
for I:=1 to N do begin
readln (Mas[I]);
If (Mas[I] mod 2 = 0) and (Mas[I] mod 3 = 0) and (Mas[I+1] mod 2 = 0) and (Mas[I+1] mod 3 = 0)
then Sum:=Sum+1;
end;
writeln ('Sum=',Sum);
2. 1,2,5,10
4. (85-15)*31 = 2170
6. б)
8. г) sqr
9.
A = 651(8) = 6*8^2+5*8+1 = 425(10)
B = 1101101(2) = 2^6+2^5+2^3+2^2+2^0 = 64+32+8+4+1 = 109(10)
C = D2(16) = 13*16+2 = 210(10)
D = 984(10)
BCAD
10. 100001100010010