Переводим число 598 в 2-ричную систему счисления (делим на 2 с остатком):
598=2*299+0
299=2*149+1
149=2*74+1
74=2*37+0
37=2*18+1
18=2*9+0
9=2*4+1
4=2*2+0
2=2*1+0
1=2*0+1
598₁₀=1001010110₂
Число имеет 10 знаков, а надо 16, поэтому слева дополняем 6 нулями
0000001001010110
Поскольку число отрицательное, то в старшем (левом крайнем) разряде записываем 1. Получаем окончательное 16-разрядное компьютерное представление
1000001001010110
Ответ: 1000001001010110
Program task2;
var a :array [1..10] of integer; i :integer;
begin
randomize; for i:= 1 to 10 do begin a[i]:= random(100); write(a[i],' '); end;
<span>end.</span>
1. 8 бит
2. В гигАбайте 8589934592 бит
3. В гигАбайте 1073741824 байт
Program n1;
var
i,n,x:integer;
begin
n:=0;
for i:=1 to 9 do begin
writeln('Введите число'); readln(x);
if x>n then n:=x;
end;
writeln(n);
<span>end.
</span>program n1;
var
i,n,x:integer;
begin
n:=32767;
for i:=1 to 9 do begin
writeln('Введите число'); readln(x);
if (x<n) and (x mod 2=0) then n:=x;
end;
writeln(n);
end.<span>
</span>
Var
b,i:integer;
S:string;
Begin
Readln(S);
b:=0;
For i:=1 to length(s) do
if i<length(s) then begin
if (s[i]='ж') or (s[i]='ш') then if s[i+1]='ы' then begin s[i+1]:='и'; b:=b+1; end;
End;
Writeln(b);
Writeln(s);
<span>End.</span>