Лучшие помощники
- Megamozg 2180 б
- Matalya1 1800 б
- DevAdmin 1685 б
- arkasha_bortnikov 805 б
- Dwayne_Johnson 800 б
17 декабря 2022 01:11
307
Дана строка. Подсчитать количество слов,заканчивающихся буквой и.
Мышки ели шишки
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
Остались вопросы?
Еще вопросы по категории Информатика
Дан двоичный код 8-цветного изображения. Размер монитора — 10x10 пикселей. Что изображено на рисунке (зарисовать)?...
Caps Lock - это клавиша: а) включения дополнительной клавиатуры; б) фиксации ввода заглавных букв; в) замены символов; г) вставки символов....
Дано логическое выражение, зависящее от 6 логических переменных: Сколько существует различных наборов значений переменных, при которых выражение ис...
какое высказывание является ложным? 1) Знаком V обозначается логическая операция ИЛИ ; 2) Логическую операцию ИЛИ иначе называют логическим сложением;...
Племя Мульти пишет письма, пользуясь 16-символьным алфавитом. Племя Пульти пользуется 32 символьным алфавитом. Вожди племен обменялись письмами. Письм...
Все предметы