Лучшие помощники
- Megamozg 2205 б
- Matalya1 1800 б
- DevAdmin 1720 б
- arkasha_bortnikov 900 б
- Dwayne_Johnson 870 б
17 декабря 2022 01:11
674
Дана строка. Подсчитать количество слов,заканчивающихся буквой и.
Мышки ели шишки
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
19 декабря 2022 01:11
Остались вопросы?
Еще вопросы по категории Информатика
Памятник клавиатуре. Место расположения памятника Дата открытия памятника Материал, из которого изготовлен памятник. Описание внешнего вида Гр...
Определите значение переменной «a» после выполнения фрагмента программы: a = 10 if a < 5 оr а%2==1: a += 10 elsе:...
1. Было проведено 9 запусков программы, при которых в качестве значений переменных я и k вводились следующие пары чисел: (1,1); (10, 7); (6,-12); (6,...
Информатика, решите пж)...
6. Определи, при каком наибольшем введённом значении переменной s программа выведет число 10. Для твоего удобства программа представлена на четырё...
Все предметы 
