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.
a1,a2= map(str, input('Введите два слова ').split())
if a1[0]==a2[0]:
print('Слова начинаются на одну букву')
else:
print('Слова начинаются на разные буквы')