Ошибки в программе:
Program primer - не хватает точки с запятой
Var a,b: integer;
Begin ; - не ошибка, необязательная точка с запятой
ReadLn( a,b); - не ошибка, лишний пробел после скобки, здесь и дальше не хватает пробелов между аргументами функций, знаками
s=a+b; - не хватает двоеточия в :=
m:=a*b;
d:=a:b; - переменная d не была описана; деление - это /
WriteLn(s);
WriteLn(m);
WriteLn(d)
End - не хватает точки.
Исправленная программа:
Program primer;
Var a, b: integer;
d: real;
Begin
ReadLn(a, b);
s := a + b;
m := a * b;
d := a / b;
WriteLn(s);
WriteLn(m);
WriteLn(d)
End.
Объяснение:
100000101010110₂ = 0*2⁰ + 1*2¹ + 1*2² + 0*2³ + 1*2⁴ + 0*2⁵ + 1*2⁶ + 0*2⁷ + 1*2⁸ + 0*2⁹ + 0*2¹⁰ + 0*2¹¹ + 0*2¹² + 0*2¹³ + 1*2¹⁴ = 16726₁₀
16726₁₀ = 6*16⁰ + 5*16¹ + 1*16² + 4*16³ = 4156₁₆
16726₁₀ = 6*8⁰ + 2*8¹ + 5*8² + 0*8³ + 4*8⁴ = 40526₈
10001010000111₂ = 1*2⁰ + 1*2¹ + 1*2² + 0*2³ + 0*2⁴ + 0*2⁵ + 0*2⁶ + 1*2⁷ + 0*2⁸ + 1*2⁹ + 0*2¹⁰ + 0*2¹¹ + 0*2¹² + 1*2¹³ = 8839₁₀
8839₁₀ = 7*16⁰ + 8*16¹ + 2*16² + 2*16³ = 2287₁₆
8839₁₀ = 7*8⁰ + 0*8¹ + 2*8² + 1*8³ + 2*8⁴ = 21207₈