<h3>3. а) 10011₂ = 1 * 2⁴ + 0 * 2³ + 0 * 2² + 1 * 2¹ + 1 * 2⁰ = 16 + 0 + 0 + 2 + 1=19</h3><h3>б) 254₈ = 2*8²+5*8¹+4*8⁰=128+40+4=172</h3><h3>4. а)18₁₀</h3><h3>б)4896₁₀</h3><h3>5. Только 2 ответ верный.</h3>
Program skorohodov20001;var a: integer ; Begin a:=0; writeln ('BBedite 4islo'); readln (a); if (a> 3) and (a < 11) then begin writeln('Prinodleshit') end else begin writeln('Ne prenodleshit') ; end; end.
Скорее всего уже поздно, но вот:
1) 1030
2) 9
3) 55
<h3>PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var (m, d, r) := ReadInteger3;
var (km, kd) := (r div m, r div d);
for var i := 0 to km do
for var j := 0 to kd do
if i * m + j * d = r then Println(i, j)
end.
<h2>Пример</h2><h3>2000 3000 20000</h3><h3>1 6 </h3><h3>4 4 </h3><h3>7 2 </h3><h3>10 0 </h3>