Перевод с Pascal на C#. Проверка множеств

Формулировка задачи:

                    Листинг программы
                
 
                        
                          
                    
var
  s,a,b: set of char;
  i:integer;
  c,y:string;
  x:char;
begin
  writeln('введите символы первого множества');
  readln(c);           //vvod stroki
  for i:=1 to length(c) do
    a:=a+[c[i]];             //zapis stroki v mnozhestvo1
  writeln('введите символы второго множества');
  readln(c);   //vvod stroki
  for i:=1 to length(c) do
    b:=b+[c[i]];          //zapis stroki v mnozhestvo2
  s:=a*b;    //nahozhdenie peresecheniya(odinakovih simvolov)
  for x:=#0 to #255 do
    for x in s do y:=y+x; // 
  writeln('одинаковые символы 2х множеств:',y);     //vivod stroki
  readln
end.

Решение задачи: «Перевод с Pascal на C#. Проверка множеств»

textual
                            Листинг программы 
                        
 
                        
                          
                    
using System;
using System.Linq;
 
class Program
{
    static void Main()
    {
        Console.WriteLine(String.Join(String.Empty,
            Console.ReadLine().ToCharArray().Intersect(Console.ReadLine().ToCharArray())
        ));
    }
}

Оцени полезность:

10 голосов , оценка 4 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы