Перевести следующие числа из "10" с.с в "2", "8", "16" с.с.: а) 463; б) 1209; в) 362; г) 3925; д) 11355.

А)111001111; 0717; 1cfб)10010111001; 02271; 04b9в)101101010; 0552; 16aг)111101010101; 07525; 0f55д)10110001011011; 026133; 02c5b

//pascal abc.net v3.1 сборка 1172 //1 var   ar: array[1..5] of integer;   i,s: integer; begin   randomize;   writeln('array: ');   for i: =1 to 5 do     begin       ar[i]: =random(5,37);       writeln(ar[i]);       s: =s+ar[i];     end;   writeln('sum=',s); end. //2 var   ar: array[1..20] of integer;   i,s: integer; begin   randomize;   writeln('array: ');   for i: =1 to 20 do     begin       ar[i]: =random(-77,123);       writeln(ar[i]);       if ar[i] mod 2< > 0 then s: =s+1;     end;   writeln('count=',s); end. //3 var   ar: array[1..5] of integer;   i: integer;   r: real; begin   writeln('array: ');   for i: =1 to 5 do     begin       readln(ar[i]);       r: =r+ar[i];     end;   r: =r/5;   writeln('res=',r); end.

1)абг 2)а 3)а 4)а 5)а 6)аб 7)а)if x2< 1 then   begin     y: =sin(x);     x: =x2;   end;   б)if false then else доп: а) begin   if x2< 1 then   begin y: =sinx; x: =x2; end; б)   if (0< x) and  (x< 2) then     if y< 1  then       y: =y+3 else         y: =y2  else          y: =sqr(y); в)  if (1< x) and (x< 2) then  begin  x: =x+1;   y: =0;   end  else  begin  x: =0;   y: =y+1;   end; г)if (1< x) and (x< 2) then  begin  x: =x+1;   y: =0;   end  else  begin  x: =0;   y: =y+1;   end;