Дан файл, содержащий текст. переписать в другой файл только согласные буквы данного файла.

VladislavBuryy VladislavBuryy    3   28.08.2019 09:00    0

Ответы
taoo taoo  06.10.2020 00:16
// PascalABC.NET 3.2, сборка 1417 от 28.03.2017
// Внимание! Если программа не работает, обновите версию!

begin
  WriteAllText(ReadlnString('Куда?'),ReadLines(ReadlnString('Откуда?'))
    .SelectMany(x->x)
    .Where(c->Pos(LowCase(c),'бвгджзйклмнпрстфхцчшщ')>0)
    .JoinIntoString)
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика