113₁₆ = 1×16²+1×16+3 = 256+16+3 = 275₁₀
2ACF₁₆ = 2×16³+10×16²+12×16+15 = 8192+2560+192+15 = 10959₁₀
691₁₆ = 6×16²+9×16+1 = 1536+144+1 = 1681₁₀
D306F₁₆ = 13×16⁴+3×16³+0×16²+6×16+15 = 851968+12288+0+96+15 = 864367₁₀
112₁₆ = 113₁₆ - 1 = 275₁₀ - 1 = 274₁₀
2ACE₁₆ = 2ACF₁₆ - 1 = 10959₁₀ - 1 = 10958₁₀
690₁₆ = 691₁₆ - 1 = 1681₁₀ - 1 = 1680₁₀
D306E₁₆ = D306F₁₆ - 1 = 864367₁₀ - 1 = 864366₁₀
<span>1) </span><span>program</span> Mult<span>(</span>output<span>)</span>; <span>begin</span> var k,m: integer; k:=12; m:=1; while(k<800) begin m:=m*k; k:=k+12; end; write(m); <span>end</span>.
2) <span>program</span> EvenNumbers<span>(</span>output<span>)</span>; <span>begin</span> n, m, even, i: integer; even:=0; write('Enter number N: '); read(n); writeln(); if n<=0 then exit; write('Enter a number: '); for i:=1 to n do begin read(m); writeln(); if i<n then begin write('Enter a number: '); end; if m div 2 = 0 then even:=even+1; end; write(even); <span>end</span>.
3) <span>program</span> Mine<span>(</span>output<span>)</span>; <span>var</span> i <span>:</span><span>integer</span>; function Print<span>(</span><span>var</span> j <span>:</span><span>integer</span><span>)</span>;real; <span>begin</span> Print:=1/<span>exp(ln(j) * </span>5<span>)</span><span>end</span>; <span>begin</span> n,i:integer; m:real; write('Enter number N: '); read(n); m:=0; for i:=1 to n do m:=m+Print(i); writeln(); write(m); <span>end</span>.
Наверное, так:) Сумма уоличества всех возможных имён длиной от 1 до 5 символов, но, право, циклом короче было бы ._.
Просто умножай каждое число на 2
32 64 128 256 512 1024 и так далее
Необходимо это в первую очередь для того, чтобы визуально разграничивать фрагменты текста между собой.