Які дії запрограмовані в наступній блок схемі? Яким буде результат?​

146

Объяснение:

Перевод из 16-ричной СС в 10-чную:

Число 55(16). Нумеруем сверху 55 каждую цифру, начиная с справа и с нуля. Над первой справа пятёркой пишем 0, над второй - 1. Чтобы перевести в десятичную, умножаем:

5 на основание системы счисления в степени, которую мы указали над числом. В данном случае, это 1.

Потом приплюсовываем следующее произведение: 5 умножаем на 16 в степени 0. Сумма будет являться десятичным числом:

55(16)=5*16^1+5*16^0=80+5=85(10)

Перевод из 8-ричной СС в 10-чную:

Число 222(8). Нумеруем сверху 222 каждую цифру, начиная с справа и с нуля. Над первой справа двойкой пишем 0, над второй - 1, над третьей - 2. Чтобы перевести в десятичную, умножаем:

2 на основание системы счисления в степени, которую мы указали над числом. В данном случае, это 2.

Потом приплюсовываем следующее произведение: 2 умножаем на 8 в степени 1. Потом приплюсовываем следующее произведение: 2 умножаем на 8 в степени 0. Сумма будет являться десятичным числом:

222(8)=2*8^2+2*8^1+2*8^0=128+16+2=146(10)

Перевод из 2-ичной СС в 10-чную:

Число 1111(2). Нумеруем сверху 1111 каждую цифру, начиная с справа и с нуля. Над первой справа единицей пишем 0, над второй - 1, над третьей - 2, над четвёртой - 3. Чтобы перевести в десятичную, умножаем:

1 на основание системы счисления в степени, которую мы указали над числом. В данном случае, это 3.

Потом приплюсовываем следующее произведение: 1 умножаем на 2 в степени 2. Потом приплюсовываем следующее произведение: 1 умножаем на 2 в степени 1. Потом приплюсовываем следующее произведение: 1 умножаем на 2 в степени 0. Сумма будет являться десятичным числом:

1111(2)=1*2^3+1*2^2+1*2^1+1*2^0=8+4+2+1=15(10)

Program z1; 
Var i,n,a,b,c:integer;     
 m: array [1..1000] of integer;
Begin 
write('Введите кол-во чисел - '); 
readln(n);   
randomize;   
a:=0;   b:=0;   c:=0; 
 for i:=1 to n do 
begin   
m[i]:=random(100)-50;   
 write (m[i],' ');  end;    for i:=1 to n do    if (m[i]=0) then a:=a+1;      for i:=1 to n do    if (m[i]>0) then b:=b+1;      for i:=1 to n do    if (m[i]<0) then c:=c+1;  writeln;  writeln ('Кол-во нулей - ',a);  writeln ('Кол-во положительных чисел - ',b);  writeln ('Кол-во отрицательных чисел - ',c);End.