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

uses crt;

var s:char; n:integer;

begin

clrscr;

writeln('Введите символ');

read(s);

n:=ord(s);

writeln(n);

readkey;

end.

Объяснение:

program Kvadratnoe;

var a,b,c,d,x,y1,y2: real;

begin

writeln(' Решение квадратного уравнения ');

write(' Введите а = ');

readln(a);

write(' Введите b = ');

readln(b);

write(' Введите c = ');

readln(c);

d:=SQR(b)-4*a*c; //находим дискриминант

writeln(' d = ',d);

//Проверка значения дискриминанта

if d=0 then

begin

x:=-b/2*a;

writeln(' Х = ',x);

end

else

if d>0 then

begin

y1:=(-b-SQRT(d))/2*a;

y2:=(-b+SQRT(d))/2*a;

writeln(' Х1 = ',y1,' X2 = ',y2);

end

else writeln(' Нет корней ');

end.

1)

#include <iostream>

using namespace std;

signed main() {

   ios_base::sync_with_stdio(0);

   cin.tie(0);

   cout.tie(0);

   int a[10][10];

   int cur = 1;

   for(int i = 0; i < 10; i++)

       for(int j = 0; j < 10; j++){

           a[i][j] = cur;

           cur++;

       }

   for(int i = 0; i < 10; i++){

       for(int j = 0; j < 10; j++)

           cout << a[i][j] << " ";

       cout << "\n";

   }

}

2)

#include <iostream>

using namespace std;

signed main() {

   ios_base::sync_with_stdio(0);

   cin.tie(0);

   cout.tie(0);

   int a[5][5];

   int cur = 3;

   for(int i = 0; i < 5; i++)

       for(int j = 0; j < 5; j++){

           a[i][j] = cur;

           cur+=3;

       }

   for(int i = 0; i < 5; i++){

       for(int j = 0; j < 5; j++)

           cout << a[i][j] << " ";

       cout << "\n";

   }

}

3)

#include <iostream>

using namespace std;

signed main() {

   ios_base::sync_with_stdio(0);

   cin.tie(0);

   cout.tie(0);

   int a[11][11];

   for(int i = 1; i <= 9; i++)

       for(int j = 1; j <= 9; j++)

           a[i][j] = i*j;

   for(int i = 1; i <= 9; i++){

       for(int j = 1; j <= 9; j++)

           cout << a[i][j] << " ";

       cout << "\n";

   }

}