Переводим число 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
1)
a нет
b нет
c нет
2)
1<span>строковый тип</span>
<span>2<span>целый тип (INTEGER) </span></span>
<span><span>3<span>вещественный тип</span></span></span>
<span><span><span>3)</span></span></span>
<span><span><span>1- 30 -46</span></span></span>
<span><span><span>2- 30 -46 -0.126 15.003</span></span></span>
<span><span><span>3- 'g'</span></span></span>
<span><span><span>4- <span>‘солнце’ '55' 'g'</span></span></span></span>
<span><span><span>5- 30 -46</span></span></span>
1)
Var i:integer;
Begin
for i := 100 to 999 do
if (i mod 15 = 11) and (i mod 11 = 9)
then writeln(i);
End.
2)
Var i,n,s:integer;
Begin
read (n);
s := 1;
for i := 1 to n do
s := s * i;
write(s);
End.
3)
Var i,j,k:integer;
Begin
for i:=1 to 9 do
for j:=0 to 9 do
for k:=0 to 9 do
if i*i*i+j*j*j+k*k*k=i*100+j*10+k
then writeln(i*100+j*10+k);
End.
<em>Из мобильного приложения приведенная ниже формула не будет видна, смотреть в браузере!!!</em>var
i:integer;
x,p:real;
begin
Write('x='); Read(x);
p:=1;
for i:=1 to 32 do p:=p*(1+1/(x-2*i));
Writeln('P=',p)
end.
<u>Пример</u>x=1.36
P=-0.0783922330060185