Операция
Обозначение
Тип результата
сложение
∧
⊄
+
≡

string
integer
logical
char

ответ 2)                                

десятичная   двоичная         восьмеричная           шестнадцатиричная

1)

10                 1010                               12                                       a

18                 10010                             22                                     12

322               101000010                   502                                   142

2)

10                 1010      

74                                                         112      

92                                                                                                 5c  

числа снизу обозначают систему счисления

1)

var

i,n: integer;

begin

readln(n);

for i: =1 to n do writeln(i*i);

end.

2)

var

i,n: integer;

begin

readln(n);

for i: =1 to 10 do writeln(i: 2,'*',n,'=',i*n: 3);

end.

3)

var i,n: integer; p: real;

begin readln(n); p : = 1; for i : = 1 to n do p : = p * i; writeln(p: 15: 0); end.

4)

var

i,n: integer;

begin

readln(n);

for i: =1 to n do if (i mod 2=0) then writeln(i);

end.

5)

var

i,n,k: integer;

begin

readln(n);

k: =0;

for i: =1 to n do if (i mod 15=0) then k: =k+1;

writeln(k);

end.

поскольку язык не указан пишу в том который мне удобнее

def temp-table wares no-undo

  field ware as char

  field cost as dec extent 13

  field infl as dec.

def var i as int.

def var infl as dec.

input from data.txt.

repeat:

  create wares.

  import wares.

end.

input close.

do i = 2 to 13:

    infl=random(0.0005, 0.02).

  for each wares :

        wares.cost[i]=wares.cost[i-1]*(1+infl).

  end.

end.