Лучшие помощники
- Megamozg 2205 б
- Matalya1 1800 б
- DevAdmin 1720 б
- arkasha_bortnikov 895 б
- Dwayne_Johnson 860 б
15 декабря 2022 19:31
439
Дана строка. Подсчитать количество слов,заканчивающихся буквой и.
Мышки ели шишки
2
ответа
Var s,ss:string;
p,k:integer;
begin
writeln('Введите строку:');
readln(s);
ss:=s+' ';
k:=0;
p:=pos(' ',ss);
while p>0 do
begin
if ss[p-1]='и' then k:=k+1;
delete(ss,1,p);
p:=pos(' ',ss);
end;
writeln('k = ',k);
end.
Пример:
Введите строку:
Мышки любят шишки
k = 2
p,k:integer;
begin
writeln('Введите строку:');
readln(s);
ss:=s+' ';
k:=0;
p:=pos(' ',ss);
while p>0 do
begin
if ss[p-1]='и' then k:=k+1;
delete(ss,1,p);
p:=pos(' ',ss);
end;
writeln('k = ',k);
end.
Пример:
Введите строку:
Мышки любят шишки
k = 2
0
17 декабря 2022 19:31
Остались вопросы?
Еще вопросы по категории Информатика
Помогите пожалуйста с решением....
несжатое растровое изображение размером 128х128 пикс. занимает 2Кб. памяти. Каково максимально возможное число цветов в палитре изображения?...
На вход алгоритма подаётся натуральное число N. Алгоритм строит по нему новое число R следующим образом: 1. Строится двоичная запись числа N. 2. К это...
На Новый год в детском саду обычно наряжают ёлку и ставят вокруг неё n стульев. Далее включают весёлую музыку, под которую вокруг ёлки бегают m детише...
s = 'Андрей и Василий - братья' t = s.count('а') Определите значение переменной t после выполнения данного фрагмента программы. ...