<h2>№1</h2><h3>А) 11012₃ ? D16₁₆</h3>
<em>11012₃ = 2 + 3 +27 + 81 = </em><u><em>113₁₀</em></u>
<em>D16₁₆ = 6 + 16 + 3328 = </em><u><em>3350₁₀</em></u>
<u>D16₁₆ > 11012₃</u>
<h3>Б) 1F₁₆ ? 1101₃</h3>
<em>1F₁₆ = 15 + 16 = </em><u><em>31₁₀</em></u>
<em>1101₃= 1 + 9 + 27 = </em><u><em>37₁₀</em></u>
<u>1101₃ > 1F₁₆</u>
<h2>№2</h2><h3>А) 4278 =<em> ?₂</em></h3>
4278 = <em>8 + 7 * 9 + 2 * 81 + 4 * 729</em> = <u>3149</u>
<u>3149</u> = <em>2048 + 1024 + 64 + 8 + 4 + 1</em> = <u>110001001101₂</u>
<h3>Б) EF = <em>?₂</em></h3>
EF = <em>15 + 16 * 14</em> = <u>239</u>
<u>239</u> = <em>128 + 64 + 32 + 8 + 4 + 2 + 1</em> = <u>11101111₂</u>
<h2>№3</h2><h3>А) 11010112₃ + 110111012₃ = ?₁₀</h3>
011010112₃
+110111012₃
<u>121121201₃</u>
<u>121121201₃</u> = <em>1∙3⁸+2∙3⁷+1∙3⁶+1∙3⁵+2∙3⁴+1∙3³+2∙3²+0∙3¹+1∙3⁰ = 6561 + 4374 + 729 + 243 + 162 + 27 + 18 + 0 + 1</em> = <u>12115₁₀</u>
<h3><u>Б)</u> 10011102₃ - 01101112₃ = ?₁₀</h3>
10011102₃
-01101112₃
<u>1202220₃</u>
1202220₃ = 1202220₃ = 1∙3⁶+2∙3⁵+0∙3⁴+2∙3³+2∙3²+2∙3¹+0∙3⁰ = 729 + 486 + 0 + 54 + 18 + 6 + 0 = <u>1293₁₀</u>
Объяснение:
1.
<u>n</u><u> - исходное число,
</u>
<u>sum</u><u> - сумма четных чисел.</u>
<u />
var
n: longint;
sum: integer;
begin
readln(n);
sum := 0;
while n > 0 do begin
if n mod 10 mod 2 = 0 then
sum := sum + n mod 10;
n := n div 10;
end;
writeln(sum);
end.
2.
<u>str </u><u>- строка;
</u>
<u>len </u><u>- количество символов в строке;
</u>
<u>let_s, let_b </u><u>- количество строчных (маленьких) и прописных (больших) букв.</u>
<u />
var
str: string;
i, len, let_b, let_s: byte;
begin
readln(str);
len := length(str);
let_b := 0;
let_s := 0;
for i:=1 to len do
if (str[i] >= 'a') and (str[i] <= 'z') then
let_s := let_s + 1
else
if (str[i] >= 'A') and (str[i] <= 'Z') then
let_b := let_b + 1;
writeln((let_s/len)*100:5:2);
writeln((let_b/len)*100:5:2);
writeln;
end.
Var
a, b, c: real;
begin
writeln('Введите два катета A,B и гипотенузу С треугольника');
readln(a, b, c);
if (c >= a + b) or (a + b + c = 0) then writeln('Такого треугольника не существует')
else begin
if sqr(c) = sqr(a) + sqr(b) then writeln('Прямоугольный');
if sqr(c) > sqr(a) + sqr(b) then writeln('Тупоугольный');
if sqr(c) < sqr(a) + sqr(b) then writeln('Остроугольный');
end;
end.
Задание 9 - 1056 бит или 132 байта