Лучшие помощники
- Megamozg 2190 б
- Matalya1 1800 б
- DevAdmin 1690 б
- arkasha_bortnikov 860 б
- Dwayne_Johnson 845 б
17 декабря 2022 01:11
320
Дана строка. Подсчитать количество слов,заканчивающихся буквой и.
Мышки ели шишки
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 = 4; b = 6; b = 8 + a * b; a = b / 4 * a. В ответе укажите одно целое число – з...
В каком соотношении находятся следующие единицы измерения информации: Бит, Байт, Килобайт?...
У исполнителя четыре команды, которым присвоены номера: 1. прибавь 1, 2. сделай чётное, 3. сделай нечётное, 4. умножь на 10. Первая из них увеличивает...
Что это такое и как обозначается конъюнкция дизъюнкция инверсия эквивалентность импликация...
Что такое системная шина. Что такое USB-порт?...
Все предметы