Лучшие помощники
- Megamozg 2200 б
- Matalya1 1800 б
- DevAdmin 1700 б
- arkasha_bortnikov 890 б
- Dwayne_Johnson 860 б
17 декабря 2022 01:11
333
Дана строка. Подсчитать количество слов,заканчивающихся буквой и.
Мышки ели шишки
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
Остались вопросы?
Еще вопросы по категории Информатика
2. Какие типы ПК вы можете назвать? Укажите основные дос- тоинства и недостатки ПК разных типов ...
перевести из двоичной системы в десятичную, восьмеричную, шестнадцатиричную системы число:1000111,11012 Решенье дробью...
При регистрации в компьютерной системе каждому пользователю выдаётся пароль, состоящий из 15 символов и содержащий только символы из 12-символьного на...
Укажите величины, которые целесообразно представлять с помощью таблиц: рост учеников класса список учеников класса оценка ученика по физике имя...
N = 5 A = [0]*N for i in range(N): A[i] = i Какие значения будут записаны в массив А? [ , &nb...
Все предметы