1) program ex; var i:integer ;mas:array [1..10] of integer; begin for i:=1 to 10 do begin mas[i]:=random(9)+1; if (mas[i] mod 2)=0 then mas[i]:=mas[i]+1; end; end. 2)program ex; var i:integer ;mas:array [1..10] of integer; begin for i:=1 to 10 do begin mas[i]:=random(9)+1; if (mas[i] mod 2)=0 then mas[i]:=0; else mas[i]:=mas[i]*3; end; end. 3)program ex; var i:integer ;mas:array [1..10] of integer; begin for i:=1 to 10 do begin mas[i]:=random(9)+1; if (i mod 2)=0 then mas[i]:=(mas[i]*mas[i]); end; end. 4)program ex; var i:integer ;mas:array [1..10] of integer; begin for i:=1 to 10 do begin readln(mas[i]); if (mas[i]<0) then mas[i]:=mas[i]*(-1); end; end.
var i:integer ;mas:array [1..10] of integer;
begin
for i:=1 to 10 do
begin
mas[i]:=random(9)+1;
if (mas[i] mod 2)=0 then
mas[i]:=mas[i]+1;
end;
end.
2)program ex;
var i:integer ;mas:array [1..10] of integer;
begin
for i:=1 to 10 do
begin
mas[i]:=random(9)+1;
if (mas[i] mod 2)=0 then
mas[i]:=0;
else
mas[i]:=mas[i]*3;
end;
end.
3)program ex;
var i:integer ;mas:array [1..10] of integer;
begin
for i:=1 to 10 do
begin
mas[i]:=random(9)+1;
if (i mod 2)=0 then
mas[i]:=(mas[i]*mas[i]);
end;
end.
4)program ex;
var i:integer ;mas:array [1..10] of integer;
begin
for i:=1 to 10 do
begin
readln(mas[i]);
if (mas[i]<0) then
mas[i]:=mas[i]*(-1);
end;
end.
1)
2101 в двоичной в форме 100000110101
для него нужно 12 разрядов, а в 2-х байтовой ячейке их 16 поэто дописываем спереди 4 нуля.
ответ: 0000100000110101.
2)
для этого нужно записать число в двоичном виде и записать для него дополнительный код и потом перевести в 16-ю сисему счисления
0000100000110101 пр.
обратный код это код в котором все 0 заменены на 1, а 1 на 0
1111011111001010 обр.
чтобы получит дополнительный код нужно прибавить 1
1111011111001011 доп.
теперь смотрим по 4 разряда и заменяем 1 символом в 16 системе счисления
в 16- системе счисления это F7CB
3)F840 = 63552;