7)Руслан
8)друга ищи,а найдешь-береги
старый друг лучше новых двух
Если числа даны в шестнадцатиричной с.с., тогда:
А116+11012=1В128 (16)
1В128=330450 (8)
<span>//PascalABC.NET
//Версия 3.3, сборка 1634 (14.02.2018)
// А,a
begin
ArrFill(ReadInteger('n='),ReadInteger('x=')).Println;
end.
// А,б
begin
var x:=ReadInteger('x=');
var a:=ArrGen(ReadInteger('n='),i->x+i); a.Println;
end.
// B,a
begin
var (x,n):=ReadInteger2('x,n=');
var a:=ArrGen(n,i->x-(n-1-i)); a.Println;
end.
// B,б
begin
ArrGen(ReadInteger('n='),i->2**(i+1)).Println;
end.
</span>
Уточню точно турбо паскаль или просто паскаль?