Var ar,ar2:array[1..10] of integer; i:integer; begin randomize; writeln('First array:'); for i:=1 to 10 do begin; ar[i]:=random(10)-3; write(ar[i]:4); if ar[i]=0 then ar2[i]:=0; end; writeln; writeln('1-st Final array:'); for i:=1 to 10 do begin; write(ar2[i]:4); if ar[i]<0 then ar2[i]:=ar[i]; end; writeln; writeln('2-st Final array:'); for i:=1 to 10 do begin; write(ar2[i]:4); if ar[i]>0 then ar2[i]:=ar[i]; end; writeln; writeln('3-st Final array:'); for i:=1 to 10 do write(ar2[i]:4); end.
ar,ar2:array[1..10] of integer;
i:integer;
begin
randomize;
writeln('First array:');
for i:=1 to 10 do
begin;
ar[i]:=random(10)-3;
write(ar[i]:4);
if ar[i]=0 then ar2[i]:=0;
end;
writeln;
writeln('1-st Final array:');
for i:=1 to 10 do
begin;
write(ar2[i]:4);
if ar[i]<0 then ar2[i]:=ar[i];
end;
writeln;
writeln('2-st Final array:');
for i:=1 to 10 do
begin;
write(ar2[i]:4);
if ar[i]>0 then ar2[i]:=ar[i];
end;
writeln;
writeln('3-st Final array:');
for i:=1 to 10 do
write(ar2[i]:4);
end.
1Найдите значение выражения 8F – 80 в шестнадцатеричной системе счисления. В ответе запишите вычисленное значение в десятичной системе счисления.
Решение.
Переведём число 8F16 из шестнадцатеричной в десятичную систему счисления:
8F16 = 14310.
Переведём число 8016 из шестнадцатеричной в десятичную систему счисления:
8016 = 12810.
Найдём разность: 143 − 128 = 15.
2
Найдите значение выражения 1116 + 118 : 112. ответ запишите в двоичной системе счисления.
Решение.
Переведем все числа в десятичную систему счисления, выполним действия и переведем результат в двоичную систему счисления:
1116 = 16 + 1 = 1710,
118 = 8 + 1 = 910,
112 = 2 + 1 = 310,
17 + 9 : 3 = 17 + 3 = 2010,
20 = 16 + 4 = 10100 и маленькая два вместе с ответом
3
Вычислите значение выражения B916 − 2718. В ответе запишите вычисленное значение в десятичной системе счисления.
Решение.
Переведём числа в десятичную систему счисления:
B916 = 18510
2718 = 18510
Найдём разность: 185 − 185 = 0.
ответ дай лучшего ответа