1. Как, используя маску, сбросить определённый бит (записать в него
0)?
2. Код строчной латинской буквы 'а’равен 6115, а заглавной 'А' — 416.
Используя логическую операцию «И», преобразуйте код строчной буквы в
код заглавной. Проверьте, работает ли предложенный вами метод для других
букв.
3. Запишите число —18 в 8-разрядном двоичном коде. Что получится,
если применить к нему логический сдвиг вправо? Арифметический сдвиг
вправо? Сравните полученные результаты и объясните их.
ЖЕЛАТЕЛЬНО с обьяснением

dim a(12), b(12), c(12)

input "введите размерность массивов а и в - m= ", m 

print "введите элементы массивов а и в: "

for i=1 to m

  input a(i), b(i) 

next i

s=0

for i = 1 to m

  c(i)= a(i) + b(m-i+1)

  s= s+c(i)

next i 

print "массив а: " 

for i = 1 to m

    print a(i);

next   i 

print

print "массив b: " 

for i = 1 to m

    print b(i);

next   i 

print

print "массив c: " 

for i = 1 to m

    print c(i);

next   i 

print

print "сумма элементов массива с ="; s

100*1000000/8=12500000 байт в секунду

ответ 4: значок @ в адресе электронной почты употребляется всего лишь один раз (насколько мне известно)

var s: string;

i,j,k: integer;

unique: boolean;

begin

  for i : = 1000 to 9999 do

  begin

        s : = str(i);

        unique: =true;

        for j: = 1 to length(s)-1 do

              for k : = j+1 to length(s) do

              begin

                    if s[j] = s[k] then unique: =false;

              end;

        if unique then

            writeln(i);

  end;

end.

может длинее, но универсальное.