Дано любое целое число.правда ли , что все цифры , которыми оно записано , одинаковы?

C#. Пример работы на изображении.

using System;

using System.Linq;

namespace Цифры_в_числе

{

   class Program

   {

       static void Main(string[] args)

       {

           string numb; bool flag;

           do

           {

               Console.Write("Введите любое целое число: ");

               numb = Console.ReadLine();

               

               if (flag = !int.TryParse(numb, out int some))

                   Console.WriteLine("Не число!");

           } while (flag);

           if (numb[0] == '-')

               numb = numb.Substring(1, numb.Length - 1);

           var q = from x in numb

                   group x by x into g

                   let count = g.Count()

                   orderby count descending

                   select new { Value = g.Key, Count = count };

           Console.WriteLine("Правда ли, что все цифры в этом числе одинаковы?");

           Console.WriteLine($"ответ: {(q.Count() == 1 ? "Да" : "Нет")}");

       }

   }

}

а) БД «Погода», запись номер 3.
       ВЛАЖНОСТЬ = 90
       ОСАДКИ = "дождь"
б) БД «Домашняя библиотека», запись номер 1.
       АВТОР = "Толстой Л.Н."
       ГОД = 1990
в) БД «Успеваемость», запись номер 4.
       ФИЗИКА = 2
7. Данные высказывания запишите в форме простых логических выражений и определите результат их вычисления для указанных записей.
а) БД «Погода», запись номер 2.
       Температура > 0
       ОСАДКИ <> "дождь"
б) БД «Домашняя библиотека», запись номер 3.
       ГОД = 1982
       Полка < 5
в) БД «Факультативы», запись номер 4.
       Увлечения matches "*геологи".
       Фамилия_ученицы = "Шляпина".
8. Запишите следующие высказывания в форме логических выражений:
а) фамилия_ученика <> "Семенов";
б) Увлечения matches "*геология";
в) дата < 5/05/1989;
г) дата <= 23/09/1996;
д) алгебра <> "отлично";
е) АВТОР = "Беляев А.Р." ;
ж) ГОД = 1990;
з) Полка <= 5.

1. Вот так сейчас решают подобные задачи:

// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
begin
  Writeln(Range(1,100).Select(i->sin(i)*cos(i)).Where(x->x<>0).Average)
end.

Тестовое решение:
-0.00136006072493969

2. А вот так учат писать это же школьные учителя:

// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
var
  m:array[1..100] of real;
  i,k:integer;
  s:real;

begin
  s:=0;
  k:=0;
  for i:=1 to 100 do begin
    m[i]:=sin(i)*cos(i);
    if m[i]<>0 then begin
      s:=s+m[i];
      k:=k+1
      end
    end;
  Writeln(s/k)
end.

Тестовое решение:
-0.00136006072493969