Лучшие помощники
- Megamozg 2170 б
- Matalya1 1800 б
- DevAdmin 1685 б
- arkasha_bortnikov 775 б
- Dwayne_Johnson 755 б
14 декабря 2022 18:45
826
Дана строка. Подсчитать количество слов,заканчивающихся буквой и.
Мышки ели шишки
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
Остались вопросы?
Еще вопросы по категории Информатика
Алфавит содержит восемь букв: А, Б, В, Г, Д, Е, Ж, З. Устройство заменяет каждую букву последовательностью из трех двоичных символов так, что одинаков...
Два сообщения содержат одинаковое количество информации. Количество символов в первом тексте в 2,5 раза меньше, чем во втором. Сколько символов содерж...
1) Что такое W W W ? 2) Кто разработчик первого компьютера ? 3) Когда отмечают Всемирный день информации? 4) Кто такой К.Э. Циалковский? Годы жизни. М...
Переведите двоичное число 1100110 в десятичную систему счисления...
Какова длительность фильма (в секундах), если известно, что файл с фильмом занимает 486000 Мбайт, глубина цвета 24 бита, разрешение кадров 1024х768 пи...