решить, только писать со всеми вычислениями. 1.Среди приведенных ниже 3 чисел, записанных в разных системах счисления, найдите минимальное и запишите его в ответе в десятичной системе счисления. 50в16 108в8 1001010в2 2.Переведите десятичное число 80 в двоичную, восьмеричную и шестнадцатиричную cc.

переведем каждое из этих чисел в десятичную систему счисления:

1) 23_{16}\Rightarrow x_{10}

23_{16}=2*16^1+3*16^0=32+3=35_{10}

2) 32_8\Rightarrow x_{10}

32_8=3*8^1+2*8^0=24+2=26_{10}

3) 11110_2\Rightarrow x_{10}

11110_2=2^4+2^3+2^2+2^1=16+8+4+2=30_{10}

Наибольшее из полученных чисел: 35

ответ: 35

Объяснение:

1. Program A1;
var
s,m:integer;
begin
Writeln('Vvedi vozrast SASHI :');
Read(s);
Writeln('Vvedi vozrast MASHI :');
 Read(m);
If s>m then writeln('SASHA starshe MASHI') else writeln('MASHA starshe SASHI');
end.

2.
Program A1;
var
s,m:integer;
begin
Writeln('Vvedi vozrast SASHI :');
Read(s);
Writeln('Vvedi vozrast MASHI :'); 
Read(m);
If s=m then writeln('SASHA i MASHA rovestniki') else
If s>m then writeln('SASHA starshe MASHI') else writeln('MASHA starshe SASHI');
end.

3.
Program A1;
var
a,b,c,d:real;
begin
Readln(a);
Readln(b);
Readln(c);
If ((b<a) and (b<c)) then begin d:=a; a:=b; b:=d; end;
If ((c<a) and (c<b)) then begin d:=a; a:=c; c:=d; end;
If ((a>b) and (a<c)) then begin d:=b; b:=a; a:=d; end;
If ((c<b) and (c>a)) then begin d:=b; b:=c; c:=d; end;
If ((a>c) and (a>b)) then begin d:=c; c:=a; a:=d; end;
If ((b>c) and (b>a)) then begin d:=c; c:=b; b:=d; end;
writeln(a,'<',b,'<',c);
end.

Const n=3;
var    a: array[1..n] of integer;  
  i, j, k: integer; 
begin  
  randomize;   
  write ('Исходный массив: ');  
  for i := 1 to n do begin  
      a[i] := random(256);     
   write (a[i]:4);    end;    
writeln; writeln;    
  for i := 1 to n-1 do   
     for j := 1 to n-i do   
         if a[j] > a[j+1] then begin     
           k := a[j];            
    a[j] := a[j+1];        
        a[j+1] := k        
    end;    
 write ('массив по возрастанию: '); 
   for i := 1 to n do  
     write(а[i]:4);   
  writeln;
 readln;
end.