Question

Напишите функцию, которая удаляет из переданной ей символьной строки все символы 'в' и 'и'.

Answer 1

[-----------------PascalABC.Net------------------]

• function ReplaseString(s: string): string;
• begin
•  s := s.Where(c -> c <> 'в').JoinIntoString;
•  s := s.Where(c -> c <> 'и').JoinIntoString;
•  Result := s;
• end;
• begin
•  var s := ReadString;
•  Print(ReplaseString(s));
• end.

Answer 2

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

function УдалитьСимволы(s: string) :=

   s.Where(c -> not (c in ['в', 'и'])).JoinIntoString;

begin

 УдалитьСимволы(ReadString).Print

end.