Решение примеров 1) (248,426)10→ х2, х8, х16
а) (11111000,011)2
б) (370,332)8
в) (F8,6D0)16
2) (100110001101,0010111011)2→ х8, х16, х10
а) (4615,1354)8
б) (98D,2EC)16
в) 1ּ2¹¹+ 0ּ2¹º+ 0ּ2⁹ + 1ּ2⁸ + 1ּ2⁷ + 0ּ2⁶ + 0ּ2⁵ + 0ּ2⁴ + 1ּ2³ + 1ּ2² + 0ּ2¹ +
1ּ2º + 0ּ2ֿ¹ + 0ּ2ֿ² + 1ּ2ֿ³ + 0ּ2ֿ⁴ + 1ּ2ֿ⁵ + 1ּ2ֿ⁶ + 1ּ2ֿ⁷ + 0ּ2ֿ⁸ + 1ּ2ֿ⁹ + 1ּ2ֿ¹º
= 2048 + 256 + 128 + 8 + 4 + 1 + 0,125 + 0,03125 + 0,015625 + 0,0078125 +
0,0019531 + 0,00097655 = 2445,1826171510

// PascalABC.Net 3.2
begin
  var a:=ArrRandom(15,10,30).Select(x->x+0.1); Write('A='); a.Println;
  var b:=ArrRandom(12,10,30).Select(x->x+0.1); Write('B='); b.Println;
  var c:=a.Intersect(b).ToArray;
  Write('C='); c.Println;
  a:=a.Except(c).ToArray; Write('A новый='); a.Println;
  b:=b.Except(c).ToArray; Write('B новый='); b.Println
end.

Пример решения
A=15.1 25.1 29.1 24.1 16.1 29.1 18.1 13.1 10.1 12.1 10.1 13.1 14.1 18.1 24.1
B=24.1 10.1 23.1 15.1 13.1 16.1 22.1 21.1 21.1 28.1 26.1 29.1
C=15.1 29.1 24.1 16.1 13.1 10.1
A новый=25.1 18.1 12.1 14.1
B новый=23.1 22.1 21.1 28.1 26.1

При копировании кода из IDE на сайт автоматически удаляется перенос строки. Будет прикреплен скриншот того, как должен выглядеть код

program p1;var i: integer;beginfor i:=1 to 10 dowriteln('5*'+i+'='+5*i);end.

____________________

program p1;var a, b, c, d, e, sum: integer;beginwrite('Введите первое число >> ');read(a);write('Введите втроое число >> ');read(b);write('Введите третье число >> ');read(c);write('Введите четвертое число >> ');read(d);write('Введите пятое число >> ');read(e);sum:=a+b+c+d+e;writeln('Сумма введенных чисел: '+sum);end.