Установите соответствие: 1) двоичная система счисления 2)десятичная система счисления 3)восьмеричная системы счисления 4)шестнадцатеричная система счисления а)974 б)9ве3 в)11111 г)631

ответ:

1)-в.

2)-а.

3)-г.

4)-б.

1) в)

2) а)

3) г)

4) б)

 

 

 

(от 20 до 5000 символов)

Function simp(var n: integer): boolean; var i,j: integer;     priz: boolean; begin   priz: =true;   i: =2;   j: =round(sqrt(n));   repeat     if (n mod i)=0 then     begin       priz: =false;       break;     end;     i: =i+1;   until i> j;   simp: =priz; end; { основная программа }   var n: integer; begin   write('ch = ');   readln(n);   n: =n+1;   while not simp(n) do n: =n+1;   writeln('наименьшее простое число: ',n); end.

//pascal abc.net v3.0 сборка 1111 var   ar: array of integer;   n,i,min,mini: integer; begin randomize; min: =2147483647;   writeln('введите размерность: ');   readln(n);   setlength(ar,n);   writeln('array: ');   for i: =0 to n-1 do     begin     ar[i]: =random(-30,30);     write(ar[i]: 4);     if min> =ar[i] then       begin       min: =ar[i];       mini: =i;       end;     end;   for i: =0 to mini-1 do     if ar[i]< 0 then ar[i]: =0;   writeln;   writeln('final array: ');   for i: =0 to n-1 do     write(ar[i]: 4); end.пример ввода: 5пример вывода: array:   -3 -26   -2   18 -21final array:     0 -26   -2   18 -21