Заполнить массив различными натуральными числами, квадраты которых заканчиваются данным числами. - Pascal ABC - Ответ 3611040

const
  n = 1000;
 
type
  mas = array [1..n] of integer;
 
var
  a, b: mas;
  i, j, k: integer;
 
procedure random_mas(var b: mas);
var
  i: integer;
begin
  for i := 1 to n do 
  begin
    b[i] := i;
  end;
  for i := 1 to n do 
  begin
    if b[i] > 100 then 
    begin
      if b[i] div 10 = sqr(b[i] div 10) mod 100 then 
      begin 
        j := j + 1; 
        a[j] := b[i] div 10; 
      end; 
        end else
        if b[i] < 10 then 
        if ((sqr(b[i]) mod 10)) = b[i] then 
        begin 
          j := J + 1; 
          a[j] := b[i]; 
      end; 
      end;  end;
 
procedure print_mas(b: mas);
var
  i: integer;
begin
  for i := 1 to 10 do
    write(b[i], ' ');
  writeln;
end;
 
begin
  random_mas(b);
  k := 0;
  for i := 1 to j do 
  begin
    if (a[i] <> a[i + 1]) then 
    begin  
      write(a[i], ' '); end; end;
end.

const
  n = 10;
 
type
  mas = array [1..n] of integer;
 
var
  a, b: mas;
  i, j: integer;
 
procedure random_mas(var b: mas);
var
  i: integer;
begin
  for i := 1 to n do 
  begin
    b[i] := random(1000);
  end;
  for i := 1 to n do 
  begin
    if b[i] > 100 then 
    begin
      if b[i] div 10 = sqr(b[i] div 10) mod 100 then 
      begin
        j := j + 1; 
        a[j] := b[i] div 10; 
      end; 
    end else
    if b[i] < 10 then 
      if (sqr(b[i]) mod 10) = b[i] then 
      begin
        j := J + 1; 
        a[j] := b[i];  
      end; 
  end;
  
end;
 
procedure print_mas(b: mas);
var
  i: integer;
begin
  for i := 1 to n do
    write(b[i], ' ');
  writeln;
end;
 
begin
  random_mas(b);
  writeln('Случайный массив:');
  print_mas(b);
  writeln('Массив из элеметов удовлетворяющих правилу:'); writeln;
  if j = 0 then writeln('Таких нет, попробуйте снова:)') else
    for I := 1 to j do
      write(a[i], ' ');
end.