1)
1⁸1⁷1⁶0⁵1⁴0³1²0¹0⁰₂ = 0 * 2^{0} + 0 * 2^{1} + 1 * 2^{2} + 0 * 2^{3} + 1 * 2^{4} + 0 * 2^{5} + 1 * 2^{6} + 1 * 2^{7} + 1 * 2^{8} = 0 + 0 + 4 + 0 + 16 + 0 + 64 + 128 + 256 = 468₁₀
2)
1B₁₆ =
У 16 счет немного другой: 0123456789ABCDEF (в 10)
A = 10, B = 11, C = 12, D = 13, E = 14, F = 15
Var
s, a, b: string;
i: integer;
begin
readln(s);
a:='Да';
b:='Нет';
while pos(a, s) > 0 do
begin
i:=pos(a, s);
delete(s, i, length(a));
insert(b, s, i);
end;
writeln(s);
<span>end.</span>
45 -1 = 44
44 / 2 = 22
22 / 2 = 11
11 - 1 = 10
10 / 2 = 5
Итого: 2 1 1 2 1
Program n1;
var a,sum,i: integer;
begin
sum:=0;
for i:=1 to 10 do
begin
readln(a);
if a mod 10=3 then sum:=sum+a;
end;
write(sum);
end.