Переведите пожалуйста код с Pascal на C# (количество разных цифр)

@mmaxim615 · Регистрация: 13.02.2018

Author24 — интернет-сервис помощи студентам

Pascal

uses crt;
var n:longint;
    k,p:byte;
    m:set of byte;
begin
clrscr;
write('n=');
readln(n);
m:=[];p:=0;
while n>0 do
 begin
  k:=n mod 10;
  if not (k in m)then
    begin
     include(m,k);
     p:=p+1;
    end;
  n:=n div 10;
 end;
write('В числе разных цифр=',p);
readln
end.

@Hitoku · 24.02.2018, 17:37

На C# можно в одну строку сделать. Как вариант

C#

1	Console.WriteLine(Convert.ToString(long.Parse(Console.ReadLine())).Distinct().Count());

А так вот

C#

using System;
using System.Linq;
using System.Collections.Generic;
 
namespace thread2198827
{
    class Program
    {
        static void Main()
        {
            int n = int.Parse(Console.ReadLine());
            List<int> m = new List<int>();
            while (n > 0)
            {
                int k = n % 10;
                if (!m.Contains(k))
                    m.Add(k);
                n /= 10;
            }
            Console.WriteLine("В числе разных цифр " + m.Count());
            Console.ReadKey();
        }
    }
}

@Вадим Тукаев · 24.02.2018, 20:24

C#

using System;
 
class Program
{
    public static void Main()
    {
        int n = Int32.Parse(Console.ReadLine());
        int d = 0;
        do d |= 1 << n % 10; while ((n /= 10) != 0);
        do ++n; while ((d &= d - 1) != 0);
        Console.WriteLine(n);
    }
}

	24.02.2018, 20:24

Переведите пожалуйста код с Pascal на C# (количество разных цифр)

Решение