Решите 1 и 2 номер 17(желательно в столбик)

var rnd = new Random();

           byte FirstNumber;  

           byte SecondNumber;

           byte ThirdNumber;  

           byte Count = 0;

           string For;

           Console.WriteLine("Введите кол-во повторений цикла.");

           For = Console.ReadLine();

           if (ushort.TryParse(For, out ushort n)) ; // просто попытка запарсить.

           else

           {

               Console.WriteLine("Введите верное значение.");

               Console.ReadLine();

               return;

           }

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

               {

                   FirstNumber = (byte)rnd.Next(-1, 10);

                   SecondNumber = (byte)rnd.Next(-1, 10);

                   ThirdNumber = (byte)rnd.Next(-1, 10);

                   if (FirstNumber < SecondNumber && SecondNumber < ThirdNumber && ThirdNumber < 8)

                   {

                       Console.WriteLine($"Код из 4 цифр: {FirstNumber}{SecondNumber}{ThirdNumber}8.");

                       Count++;

                   }

               }

               Console.WriteLine($"Всего комбинаций с цифрами на увеличение: {Count}.");

               Console.ReadLine();

С#, сделал на методе рандом. Немного не то что нужно было. может что надо добавишь, где то сколхозил знаю. Например с числом повторений я не парился и сделал возможность самому написать число.

type Man = record

        name: String;

        surname: String;

        date: record

            day: Integer;

            month: Integer;

            year: Integer;

        end;

    end;

var people: Array [1..100] of Man;

   i,n,_year: Integer;

   _name: String;

begin

   Write('Enter number of man: ');

   ReadLn(n);

   for i := 1 to n do

   With people[i] do

   begin

       WriteLn('Man[',i,']:');

       Write('Enter name: ');

       ReadLn(name);

       Write('Enter surname: ');

       ReadLn(surname);

       Write('Enter birthday Day/Month/Year: ');

       ReadLn(date.day, date.month, date.year);

       WriteLn;

   end;

   Write('Enter year: ');

   ReadLn(_year);

   for i := 1 to n do

   With people[i] do

       if (date.year = _year) then

           WriteLn('Name: ',name,' Surname: ',surname);

   WriteLn;

   Write('Enter name: ');

   ReadLn(_name);

   for i := 1 to n do

   With people[i] do

       if (name = _name) then

       begin

           Write(surname,' ',name);

           WriteLn(' ',date.day,'.',date.month,'.',date.year);

       end;

   ReadLn;

end.

Объяснение: