Question

Помогите решить 3 задачу в pascal.Заранее спасибо!!! ​

Answer 1

var

a: array [1..4] of string;

i,j:integer;

begin

 for i:=1 to 4 do

   readln(a[i]);

 for i:=1 to 3 do

   for j:=i+1 to 4 do

     if a[i]=a[j] then

       writeln('Повторяется: ',a[j]);

end.

Решение в лоб, без особой логики и экономии времени и памяти. Сбоит если подряд идут 3-4 одинаковых: несколько раз говорит о повторении.

Answer 2

===== PascalABC.NET =====

begin

 var L := new List<string>;

 loop 4 do

   L.Add(ReadlnString);

 var s := L.GroupBy(p -> p)

     .Select(p -> (p.Key, p.Count))

     .Where(p -> p[1] > 1);

 if s.Count > 0 then

 begin

   Print('Одинаковые слова:');

   s.Select(p -> p[0]).Print

 end

 else

   Println('Одинаковые слова отсутствуют')

end.