1.
var a,z:integer;
begin
z:=1;
readln(a);
while a<>0 do
begin
if a<0 then z:=-z;
readln(a);
end;
if z=-1 then writeln('Произведение отрицательных чисел отрицательно')
else writeln('Произведение отрицательных чисел положительно');
end.
Пример:
12
-45
-87
-20
0
<span>Произведение отрицательных чисел отрицательно
2.
var n,a,x,s,i:integer;
begin
readln(n,a);
s:=0;
for i:=1 to n do
begin
readln(x);
if x>a then s:=s+x
end;
writeln('s = ',s);
end.
Пример:
5 30
48
15
80
29
32
<span>s = 160</span></span>
Переводим целую часть 513 в 16-ую систему последовательным делением на 16:
513/16 = 32, остаток: 1
32/16 = 2, остаток: 0
2/16 = 0, остаток: 2
513 в десятичной = 201 в шестнадцатеричной;
Переводим целую часть 600 в 16-ую систему последовательным делением на 16:
600/16 = 37, остаток: 8
37/16 = 2, остаток: 5
2/16 = 0, остаток: 2
600 в десятичной = 258 в шестнадцатеричной;
Переводим целую часть 2010 в 16-ую систему последовательным делением на 16:
2010/16 = 125, остаток: 10, 10 = A
125/16 = 7, остаток: 13, 13 = D
7/16 = 0, остаток: 7
2010 = 7DA в шестнадцатеричной.
1)269,5(10)=415,4(8)=100001101.1000(2)=10D.8(16)
269.5(10)=328.4(9)
2) <span>10Е7(16) =</span><span>0001 0000 1110
0111(<span>2)=4327(10)
</span></span><span> 10Е7(16)=4327(10)
</span>Объяснение на рисунке.