Повідомлення займає 3 сторінки і містить 7875 байтів інформації. Скільки рядків на одній сторінці, якщо символів в рядку 50 і при складанні цього повідомлення використовували 128 - символьний алфавіт?

Procedure GetAB(x: integer; var a: integer; var b: integer);
begin
    a := 0;
    b := 1;
    while x > 0 do
    begin
        a := a + 1;
        b := b * (x mod 100);
        x := x div 100;
    end;
end;

var
    x, a, b: integer;

begin
    for x := 10000 to 2000000000 do
    begin
        GetAB(x, a, b);
        if (a = 3) and (b = 18) then
            Println(a, b, x);
    end;
end.

выдает такие значения
3 18 10118
3 18 10209
3 18 10306
3 18 10603
3 18 10902
3 18 11801
3 18 20109
3 18 20303
3 18 20901
3 18 30106
3 18 30203
3 18 30302
3 18 30601
3 18 60103
3 18 60301
3 18 90102
3 18 90201
3 18 180101

Выделенное наибольшее

#include <iostream>
#include <ctime>
#include <cstdlib>
using namespace std;

int main(){
srand(time(0));
int n,m;
cin>>n;
cin>>m;
int **a=new int *[m];
for(int i=0;i<m;i++)
  a[i]=new int[n];
    cout<<"Matrix A:";
      for(int i=0;i<m;i++){
        cout<<"\n";
           for(int j=0;j<n;j++){
                 a[i][j]=rand()%17-7;
                     cout<<a[i][j]<<" ";
}
}
int *b = new int[m];
cout<<"\n Array B:";
for(int j=0;j<n;j++){
b[j]=0;
 for(int i=0;i<m;i++){
   b[j]=b[j]+a[i][j];
     }cout<<b[j]<<" ";
   }
cin.get();
cin.get();
return 0;
}