Program n1;
var sum,kp,ko,a: integer;
begin
readln(a);
sum:=0;
ko:=0;
kp:=0;
while a<>0 do
begin
sum:=sum+a;
if a>0 then kp:=kp+1
else ko:=ko+1;
readln(a);
end;
writeln(sum);
writeln(kp-ko);
end.
d) 101₂ = 1*2²+0*2¹+1*2⁰ = 4+1 = 5₁₀
210₃ = 2*3²+1*3¹+0*3⁰ = 18+3 = 21₁₀
101₂ + 210₃ = 5₁₀ + 21₁₀ = 26₁₀
e) 404₆ = 4*6² + 0*6¹ + 4*6⁰ = 144 + 4 = 148₁₀
205₈ = 2*8² + 0*8¹ + 5*8⁰ = 128+5 = 133₁₀
404₆ - 205₈ = 148₁₀ - 133₁₀ = 15₁₀
f) 56₁₆ = 5*16¹+6*16⁰ = 80+6= 86₁₀
37₇ - <em>в 7сс число не может содержать цифры 7 в записи. Либо опечатка в задании, либо проверка на внимательность. </em>
1. 262144 бит = 262144/8 байт = 32768 байт = 32768/1024 Кбайт = 32 Кбайт<span>
2. 16384 бит = 16384/8 байт = 2048 байт = 2048/1024 </span>Кбайт = 2 Кбайт<span>
3. 131072 бит = 131072/8 байт = 16384 байт = 16384/1024 </span>Кбайт = 16 Кбайт<span>
4. 1/4 Кбайт = 1024/4 байт = 256 байт = 8*256 бит = 2048 бит
5. 227 бит = 227/8 байт = 227/(8*1024) Кбайт = 227/(8*1024*1024) Мбайт </span>≈ 0,000027 Мбайт<span>
6. 10 Кбайт = 10*1024 байт = 10240 байт = 10240*8 бит = 81920 бит = 81920/1000 Кбит = 81,92 Кбит
7. 2048 бит = 2048/1000 Кбит = 2,048 Кбит
8. 2 Кбит = 2*1000 бит = 2000/8 байт = 250 байт</span>
Program asd;
Const n=5;
m=4;
Var i,j,p:integer;
A:array[1..n,1..m] of integer;
BEGIN
For i:=1 to n do
begin
For j:=1 to m do
begin
A[i,j]:=Random(10);
Write(A[i,j]:3);
end;
Writeln;
end;
P:=1;
For i:=1 to n do
For j:=1 to m do
begin
if A[i,j]<>0 then p:=p*A[i,j];
end;
Writeln('Произведение ненулевых элементов массива: ',p);
<span>END.</span>