Лучшие помощники
- Megamozg 2170 б
- Matalya1 1800 б
- DevAdmin 1685 б
- arkasha_bortnikov 775 б
- Dwayne_Johnson 755 б
15 декабря 2022 19:31
356
Дана строка. Подсчитать количество слов,заканчивающихся буквой и.
Мышки ели шишки
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
Остались вопросы?
Еще вопросы по категории Информатика
Калькулятор информацию в основном : 1) обрабатывает. 2) передает . 3) хранит....
Var S : Array[1..100] Of String; 1.Какое из обращений к J-му символу I-той строки (I-го элемента массива S) будет правильным? 1)S[I][J]; 2) S[...
Чем отличается мультимедийная обучающая программа от учебного видеофильма?...
Задать строку символов. Занести в другую строку символы, встречающиеся в исходной строке больше одного раза. Код на c++...
1-ТБ сколько ГБ? Помогите пожалуйста...