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

Answer 2

всё ?

Answer 3

Да

Answer 4

Обновите экран

Answer 5

Результат будет там же, где исходник программы. Либо, опять же, укажите полный путь

Answer 6

На будущее, если есть входной файл, прикладывайте его к вопросу. В противном случае рискуете получить непроверенный код - не у всех есть желание набирать все это руками.