Пример двух классов, объекты которых находятся в отношении взаимно однозначного соответствия

)вот ответ) не забудь! класс натуральных чисел и класс их квадратов.

var

  n: 2..100;

  a: array [1..100] of -1000..1000;

  max1, max2, maxpr, i, j: integer;   {maxpr - максимальное произведение, max1 и max2 - искомые числа}

function rangeoverfilling(number: integer; index: integer): integer; {функция, возвращающая число в диапазон} begin  if number in [1..index] then result : = number;   if number > index then result : = number mod index;   if number < 1 then result : = index + number mod index; end;

 

begin

  maxpr: = -maxint; {присваиваем максимальному проиведению начальное значение, равное максимальному числу типа integer, взятому со знаком -}

  writeln('введите n');

  readln(n);

  for i: = 1 to n do

  begin

    writeln('введите целое число, по модулю не превышающее 1000');

    readln(a[i]);

  end;

  for i: = 1 to n - 1 do

  for j: = 1 to rangeoverfilling(n - i, n) do

    if a[i] * a[i + j] > maxpr then

    begin

      maxpr: = a[i] * a[i + j];

      max1: = a[i];

      max2: = a[i + j];

    end;

  writeln('пара чисел, максимальное произведение: ', max1,' и ', max2);

end.

   

   

//dev-c++ 5.11 #include < iostream> #include < string> using namespace std; void plus1(char*,int*); int main(void)   {string n;   char poli[108];   int kar=0,buf,add=0;   cin> > n;   for(int i=0; i< n.length()/2+n.length()%2; i++)     {poli[kar]=n[i];     kar++; }   buf=kar;   plus1(poli,& kar);   if(buf! =kar)     {add++;     buf=kar; }   if((n.length()+add)%2! =0)     for(int i=buf-2; i> =0;     {poli[kar]=poli[i];     kar++; }   else     for(int i=buf-1; i> =0;     {poli[kar]=poli[i];     kar++; }   for(int i=0; i< kar; i++)   cout< < poli[i];   return 0; }   void plus1(char slogaem[],int* len)   {int add=1;   for(int i=*len-1; i> =0;   if(slogaem[i]=='9' & & add==1)     {add=1;     slogaem[i]='0'; }     else     {slogaem[i]+=add;     add=0; }   if(slogaem[0]=='0' & & add==1)   {for(int i=*len; i> 0;     slogaem[i]=slogaem[i-1];   slogaem[0]='1';   *len+=1; }} пример ввода: 93439 пример вывода: 93539