String ar;
Console.WriteLine("1 value");
ar = Console.ReadLine();
double e = Convert.ToDouble(ar);
Console.WriteLine("2 value");
ar = Console.ReadLine();
double f = Convert.ToDouble(ar);
Console.WriteLine("Выберете оператора");
Console.WriteLine("a = +");
Console.WriteLine("b = -");
Console.WriteLine("c = *");
Console.WriteLine("d = /");
string oper = Console.ReadLine();
f = Convert.ToDouble(ar);

if (oper == "a")
{
double g = f + e;
Console.WriteLine(g);
}

if (oper == "b")
{
double h = e - f;
Console.WriteLine(h);
}

if (oper == "c")
{
double h = e * f;
Console.WriteLine(h);
}
if (oper == "d")
{
double h = e / f;
Console.WriteLine(h);
}

Ребят скажите что это за консольное приложение и как оно работает и на каком языке написано?

Индекс в нижней части числа означает систему счисления, (...) число в скобках записать внизу(и без скобок):
10111(2) т.е число в двоичной с.с необходимо перевести в 10-ную с.с
10111(2) =23(10)
275(8)=189(10)
1F3(16)=499(10)
112(10)=1110000(2)
если число в 10-ной с.с то 94(10)=136(8), а если число в 16-ричной с.с , то 94 (16)= 224(8)
123(10)= 7В (16)
1110011001(2)=1631(8)
Если в 8-ричной с.с, то 251(8)=10101001(2), если число в 10-ной с.с, то 251(10)=11111011(2), если число в 16-ричной с.с, то 251(16)= 1001010001(2)
1111000(2)= 78(16)
1F5(16)=111110101(2), (буквы I в 16-ричной системе счисления нет)

1. Для матрицы 3* 3 обнулить все элементы с четным значением. Результат вывести на экран.
uses crt;
const n=3;
var a: array [1..n,1..n] of integer;
     x,y: integer;
begin
     for x:=1 to n do begin
         for y:=1 to n do begin
             a[x,y]:=random(21)-10;
             write(a[x,y]:4);
             if a[x,y] mod 2=0 then a[x,y]:=0;
         end;
         writeln;
     end;
     writeln;
     for x:=1 to n do begin
         for y:=1 to n do
             write(a[x,y]:4);
         writeln;
     end;
end.

2. Для матрицы 3*3 целых чисел найти индексы элементов с нулевым значением. Результат вывести на экран.
uses crt;
const n=3;
var a: array [1..n,1..n] of integer;
    x,y: integer;
begin
     for x:=1 to n do begin
         for y:=1 to n do begin
             a[x,y]:=random(21)-10;
             write(a[x,y]:4);
         end;
         writeln;
     end;
     writeln;
     for x:=1 to n do
         for y:=1 to n do
             if a[x,y]=0 then writeln(x,',',y);
end.