// PascalABC.NET
// Версия 3.4 сборка 1749 (18.08.2018)
begin
ReadAllLines('in.txt').Select(t->t.ToCharArray).Where(t -> (t[0] = 'А') or (t[0] = 'Б') or (t[0] = 'В')).Select(t->t.JoinIntoString('')).PrintLines;
end.
Файл, который использовал для проверки в приложении(совпадение с реальными именами - случайность).
Пример работы в приложении.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
// PascalABC.NET
// Версия 3.4 сборка 1749 (18.08.2018)
begin
ReadAllLines('in.txt').Select(t->t.ToCharArray).Where(t -> (t[0] = 'А') or (t[0] = 'Б') or (t[0] = 'В')).Select(t->t.JoinIntoString('')).PrintLines;
end.
Файл, который использовал для проверки в приложении(совпадение с реальными именами - случайность).
Пример работы в приложении.