Можно использовать другие команды? Например Trunc?
Если да, то вот:
var i,j,n:integer;
s:real;
begin
readln(i,j);
s:=i/j;
n:=i-j*Trunc(s); {Функция Trunc выделяет целую часть}
writeln(n);
<span>end.
Если нельзя пользоваться Trunc, то вот другое решение:
var i,j:integer;
s,m:real;
begin
readln(i,j);
m:=i/j;
s:=m;
while s>=1 do s:=s-1;
m:=m-s
;writeln(i-j*m;);
<span>end.</span></span>
32 Кбайт= 2^5*2^10=2^15
128 Мбайт= 2^7*2^10*2^10=2^27
512 Гбайт= 2^9*2^10*2^10*2^10=2^39
Тут все написано Тут все написано Тут все написано
Если 2 цифры, значит оно двузначное
Подробное решение в прикрепленных.
1. 100111(2) = 39(10)
2. 513(10) = 1000000<span>001(2)
7000(10) = </span>1101101011<span>000(2)
3. 8700(10) = </span>20<span>774(8)
9300(10) = </span>22<span>124(8)
4. 287(10) = </span><span>11F(16)
1023(10) = </span><span>3FF(16)
5. 1010001001011(2) = </span>12<span>113(8)
</span>1010001001011(2) = 1<span>44B(16)
10</span>11001101111(2) = 13<span>157(8)
</span><span>1011001101111(2) = </span><span>166F(16)
6. 266(8) = </span>10110<span>110(2)
2A19(16) = </span>10101000011<span>001(2)
7. 29(10) = </span>11<span>101(2)
17(10) = </span>10<span>001(2)
11101(2) + </span>10<span>001(2) = </span>101<span>110(2)</span>
11101(2) - 10001(2) = 1<span>100(2)</span>
11101(2) * 10001(2) = 111101<span>101(2)</span>
