Вычислите выражения : а)(1111101₂+af₁₆): 36₈; б)125₈+101₂·2a₁₆-141₈; ответ дайте в десятичной системе счисления ! ! !

А)1111101₂+AF₁₆=300( В десятичной)
   300(в десятичной) / 36₈ = 10(в десятичной)
Б) 101₂·2A₁₆=355(в десятичной)
      355(в десятичной) + 125₈=440( В десятичной)
       440( В десятичной)- 141₈= 343( в десятичной) 
Если нужны подробные решения, то в интернете полно онлай калькуляторов http:  / / calculatori.  ru/ slozhenie. html

Логические знаки не дает вставлять - пишу их союзами и частицами подчеркнутыми.
1)   Число  376 четное и трехзначное.
А = "Число  376 четное"
В = "Число  376 трехзначное"
А и В 
2) Неверно, что Солнце движется вокруг Земли.
А = "Солнце движется вокруг Земли"
Не А
3) Земля имеет форму шара.
А = "Земля имеет форму шара"
А
4) На уроке математики старшеклассники отвечали на вопросы учителя и писали самостоятельную работу.
А = "На уроке математики старшеклассники отвечали на вопросы учителя"
В = "На уроке математики старшеклассники писали самостоятельную работу"
А и В
5) Если сумма цифр числа делится на 3, то число делится  на  3.
А = "Сумма цифр числа делится на 3"
В = "Число делится  на  3"
А стрелка к  В
6) Число  делится на 3 тогда и только тогда, когда сумма цифр числа  делится на 3
А = "Число  делится на 3 "
В = "Сумма цифр числа  делится на 3"
А стрелка в обе стороны В

Вот так пойдет?
дан массив. заменить элементы с нечетными номерами на квадраты их номеров.

program tt;uses wincrt;
type  Tmas=array[1..100] of real;
var  d,a:Tmas;  i,j,n:byte;
procedure enter_d(n:byte; var d:Tmas);
begin  
randomize;  
for i:=1 to n do begin    
d[i]:=random(40);    
write(d[i]:0:0,' ');  
end;
writeln;
end;

procedure form_a(n:byte;d:Tmas;var a:Tmas);
begin  
for i:=1 to n do begin    
if odd(i)=true then a[i]:=d[i]/i    
else a[i]:=sqr(d[i]); end;
end;

procedure show_a(a:Tmas);
begin  
for i:=1 to n do
write(a[i]:0:2,' ');
end;
end; 
BEGIN 
ClrScr;  writeln('Введите размер массива: '); 
readln(n); 
enter_d(n,d); 
form_a(n,d,a); 
show_a(a);
END.