Лучшие помощники
- Megamozg 2180 б
- Matalya1 1800 б
- DevAdmin 1690 б
- arkasha_bortnikov 840 б
- Dwayne_Johnson 840 б
14 декабря 2022 18:45
865
Дана строка. Подсчитать количество слов,заканчивающихся буквой и.
Мышки ели шишки
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) всё то, что так или иначе зафиксиров...
Оперативная память предназначена для: а.длительного хранения информации b.хранения неизменяемой информации c.кратковременного хранения информации в...
Сколько битов содержится в одном байте? () 8 () 2 () 1024 () 10 Сколько байтов в слове бит? () 24 () 8 () 3 () 2 Сколько битов в слове байт? () 24 ()...
На рисунке приведен фрагмент электронной таблицы. Определите, чему будет равно значение, вычисленное по следующей формуле =СУММ(B1:C4)+F2*E4-A3 СРОЧНО...
Миша соединил последовательно несколько резисторов (см. схему участка цепи AB). Схема участка цепи АВ №ОбозначениеНоминал (Ом) 1R1 12 2R2 15 3R3...
Все предметы