Алфавит некоторого языка содержит 32 буквы, 10 цифр и 22 знака препинания. определите вес одного символа

Пишу на Delphi (ObjectPascal):

function Summa(a,b:integer):string;
var a1,b1:integer;
begin   //находим сумму первого числа
a1:=(a div 1000)+((a div 100)mod 10)+((a mod 100)div 10)+(a mod 10);

//находим сумму второго числа
b1:=(b div 1000)+((b div 100)mod 10)+((b mod 100)div 10)+(b mod 10);

//выясняем что больше
if a1>b1 then         
   Result:='Сумма цифр левого числа больше. Оно равно: '+IntToStr(a1)         
else         
Result:='Сумма цифр правого числа больше. Оно равно: '+IntToStr(b1);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin //Выполнение и вывод результата функции через нажатие кнопки
Label1.Caption:=Summa(StrToInt(Edit1.Text),StrToInt(Edit2.Text));
end;

include <stdio.h>

#include <stdlib.h>

#include <time.h>

#include <string.h>

const unsigned M=5;

 

void init_array(int A[][M], unsigned n);

void print_of_array(int A[][M], unsigned n);

void swap (int *pa, int *pb);

void changing_of_array(int A[][M], unsigned n);

int main(){

   const unsigned N=5;

       int A[N][M];

       init_array(A,N);

       print_of_array(A,N);

       printf("\n");

               printf("\n");

       changing_of_array(A,N);

       print_of_array(A,N);

       getchar();

       return 0;

   

}

 

void init_array(int A[][M], unsigned n){

   for (unsigned i=0; i<n; i++)

   for (unsigned j=0; j<M;j++)

   A[i][j]=rand()%100;

}

void print_of_array(int A[][M], unsigned n){

   for (unsigned i=0; i<n; i++){

   for (unsigned j=0; j<M;j++)

       printf("%5d", A[i][j]);

   printf("\n");}

}

void swap(int *pa, int *pb){

   int temp=*pa;

   *pa=*pb;

   *pb=temp;

   return;

                                     }

void changing_of_array(int A[][M], unsigned n)  {

   unsigned l=1;

   for (unsigned i=1; i<n; i++)              {

   for (unsigned j=M-1; j+1>0; j--){

       if ((j-l)<0) break;

   swap(&A[i][j],&A[i][j-l]);            }

l++;    

                                                            }

   

                                                                 }

Объяснение: