Question

Помогите решить пожалуйста !

Answer 1

PascalABC.NET 3.4.2, сборка 1884 от 24.11.2018

Внимание! Если программа не работает, обновите версию!

begin

 var a := ReadAllLines('samecode.in');

 var n := 1;

 n := ReadIntegerFromString(a[0], n);

 var w := a[1].ToWords(',', ' ').Last;

 var k := a[1].MatchValues(w).Count;

 WriteAllText('samecode.out',

     a[2:n + 1].Numerate.Where(t -> t[1].MatchValues(w).Count = k)

     .Select(t -> t[0] + 1).Sum.ToString)

end.

Файл samecode.in с контрольным примером дан во втором вложении

d50571adb32abe9fe068b9879d2e1c9a.txt