Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

Удалите из символьной строки все символы, которые являются одной из четырех первых букв латинского алфавита. На паскале помогите

Ответ оставил Гость

Var
  dc:set of char;
  s1,s2:string;
  i:integer;
begin
  dc:=[A..D,a..d];
  s1:=То avoid the impression of the tail wagging the dog, +
    the president cannot be seen bending to the wishes of a minority.;
  s2:=;
  for i:=1 to length(s1) do
    if not(s1[i] in dc) then s2:=s2+s1[i];
  Writeln(Исходная строка: ,s1);
  s1:=s2;
  Writeln(Результирующая строка: ,s1)
end.

Тестовое решение:
Исходная строка: То avoid the impression of the tail wagging the dog, the president cannot be seen bending to the wishes of a minority.
Результирующая строка: То voi the impression of the til wgging the og, the presient nnot e seen ening to the wishes of  minority.