Лучшие помощники
- Megamozg 2205 б
- Matalya1 1800 б
- DevAdmin 1720 б
- arkasha_bortnikov 900 б
- Dwayne_Johnson 870 б
14 декабря 2022 18:45
1134
Дана строка. Подсчитать количество слов,заканчивающихся буквой и.
Мышки ели шишки
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 Гб = ? Мбайт 1 Кбайт = ? бит...
Под носителем информации обычно понимают: 1)линию связи 2)параметр информационного процесса 3)компьютер 4)материальный носитель,который можно использ...
1.Производительность работы компьютера (быстрота выполнения операций) зависит от … размера экрана сопротивления сети тактовой частоты процессора на...
Определите значение переменной «a» после выполнения фрагмента программы: a = 10 if a < 5 оr а%2==1: a += 10 elsе:...
1. Информационная услуга — это: a) совокупность данных, сформированная производителем для распространения в вещественной или невещественной форме. b)...