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

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

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

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

begin

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

end.

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

паскаль же?

var s, x: string; c, n, err, i, d, k: integer; begin readln (s); n: =length(s); for i: =1 to n do begin

d: =d+k;

val(s,k,err);

end;

write (d);

end.

1-я строка имеет длину 1

2-я - 3

3-я - 7

4-я - 15

5-я - 31

6-я - 63

7-я - 127

8-я - 255

9-я - 511 = 8я+8я+i

причем символы с 1 по 255 это первая 8-я строка символы с 256 по 511 это 2-я 8-я строка и символ i

8-я строка это две 7-х строки и символ h

каждая строка в начале имеет предыдущие строки таким образом в начале 8-й строки стоит символ a и далее так как в 4-й строке написано