Var s,r,k: string;
j: integer;
begin
write('строка: '); readln(s);
foreach k in s.Split(' ').Distinct do
begin
j:=0;
foreach r in s.Split(' ') do
if r=k then j:=j+1;
writeln('слово ','"',k,'"',' встречается ',j,' раз');
end;
<span>end.
</span>
Система пятеричная. Закончил университет в 24(4*5+4)года, через год 25(1*25+0+0) летним молодым ...... женился на 19(3*5+4) летней девушке. Небольшая разница 6(1*5+1)лет.Мы жили ...... семья, всего 5(1*5+0) детей
Для гласных букв русского алфавита
def f():
s = input('Введите строку': )
words = s.split(' ')
words = [word for word in words if word[-1] not in "аоэиуыеёюя"]
return ' '.join(words)
Для гласных букв английского алфавита
def f():
s = input('Введите строку': )
words = s.split(' ')
words = [word for word in words if word[-1] not in "aeiouy"]
return ' '.join(words)
Я думая так: Прогулка отменяется, идет дождь я останусь дома