Лучшие помощники
- Megamozg 2205 б
- Matalya1 1800 б
- DevAdmin 1720 б
- arkasha_bortnikov 895 б
- Dwayne_Johnson 865 б
14 декабря 2022 18:45
935
Дана строка. Подсчитать количество слов,заканчивающихся буквой и.
Мышки ели шишки
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
Остались вопросы?
Еще вопросы по категории Информатика
Минимальным объектом, используемым в растровом графическом редакторе, является: * 1.Точка экрана (пиксель) 2.Символ 3.Геометрическая фигура...
Нарисуй робота как ты себе его представляешь?...
Памятник клавиатуре. Место расположения памятника Дата открытия памятника Материал, из которого изготовлен памятник. Описание внешнего вида Гр...
Вариант 2 1. Найдите ошибку. Файл – это: а) Любая информация, записанная на технические носители под определенным именем б) Программа, записанная на...
Помогите пожалуйста в питоне (Python).Надо найди самое длинное слово в строке со словами. Без модулей. Даю 15 баллов. Буду очень благодарен, если реши...