Лучшие помощники
- Megamozg 2205 б
- Matalya1 1800 б
- DevAdmin 1720 б
- arkasha_bortnikov 900 б
- Dwayne_Johnson 865 б
14 декабря 2022 18:45
948
Дана строка. Подсчитать количество слов,заканчивающихся буквой и.
Мышки ели шишки
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
16 декабря 2022 18:45
Остались вопросы?
Еще вопросы по категории Информатика
Составьте программу, по которой компьютер десять раз запросит ввод любых чисел и в результате выведет среднее арифметическое значение введенных чисел...
Алгоритмический язык алг нач цел s, k s := 2 нц для k от 1 до 5 s := s * 2 кц вывод s...
Что такое знак?информатика...
Петя случайно удалил значения некоторых ячеек электронной таблицы. Известно, что сумма чисел в каждой строке, каждом столбце и на обеих диагоналях оди...
Урок 1 Определи адреса ячеек, которые используют формат «Денежный». А1, А2, А3, А4, А5 А2, В2, С2 В3, В4, В5 С3, С4, С5 СРОЧНО ПОЖАЛУЙСТА :)...