Дано изображение. Выбери тип системы счисления.

ответ: унарная система счисления

Объяснение:

// PascalABC.NET 3.3, сборка 1625 от 17.01.2018
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ReadReal('Введите число a:');
  var n:=ReadInteger('Введите показатель степени n:');
  if n<=0 then begin
    Writeln('Показатель степени должен быть натуральным числом');
    Exit
    end;
  // перевод показателя степени в двоичную систему счисления
  var t:=n;
  var r:string:='';
  while t>=2 do (r,t):=(t mod 2+r,t shr 1);
  r:=t+r;
  // возведение в степень
  var (rr,i):=(a,2);
  while i<=r.Length do begin
    rr:=Sqr(rr);
    if r[i]='1' then rr*=a;
    i+=1
    end;
  Writeln(a,'^',n,' = ',rr)  
end.

Примеры
Введите число a: 3.182
Введите показатель степени n: 11
3.182^11 = 338611.675261463

Введите число a: 2
Введите показатель степени n: 10
2^10 = 1024

На паскале что то вроде такого:

uses GraphABC;

var
sum, sum_chetn, sum_nechetn : integer;
b:array [1..10] of integer;

begin
for var i := 0 to 10 do
begin
sum :=sum + b[i]; //сумма всех элементов
if (i mod 2 =0) then
begin
sum_chetn := sum_chetn + b[i]; //сумма всех четных элементов
end
else
begin
sum_nechetn := sum_nechetn + b[i]; //сумма всех нечетных элементов
end;
end;
println('Сумма всех элементов:');
println(sum);
println('Сумма всех четных элементов:');
println(sum_chetn);
println('Сумма всех нечетных элементов:');
println(sum_nechetn);
end.