В) 100110111 - двоичная ; 311 - десятичная
Г) 110000101000 - двоичная ; 3112 - десятичная ; 6050 - восьмиричная
3) DCXXXVII
Var i, k: integer;
a:array[1..100] of integer;
begin
k:=0;
for i := 1 to 100 do
begin
a[i]:=random(15)-7;
writeln(a[i]);
end;
for i := 1 to 100 do
if a[i]=5 then inc(k);
writeln(k);
readln
<span>end.</span>
Ответ:
ABDEF = 17
Объяснение:
ABDEF = 5 + 3 + 2 + 7 = 17
ABCEF = 5 + 9 + 4 + 7 = 25
ABEF = 5 + 8 + 7 = 20
1)Двойку в 20-ю степень возведите
3)<span>83/8=10,375, округляем 11 байт ............... </span>
Var
i,k:integer;
a:array[1..10]of integer;
begin
write('Массив: ');
for i:=1 to 10 do
begin
a[i]:=random(-10,10);
write(a[i],' ');
end;
writeln;
for i:=1 to 9 do
begin
if a[i]*a[i+1]<0 then k:=k+1
end;
writeln('Число перемен знака: ',k)
<span>end.</span>