Лучшие помощники
- Megamozg 2205 б
- Matalya1 1800 б
- DevAdmin 1720 б
- arkasha_bortnikov 900 б
- Dwayne_Johnson 870 б
17 декабря 2022 01:11
422
Дана строка. Подсчитать количество слов,заканчивающихся буквой и.
Мышки ели шишки
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
Остались вопросы?
Еще вопросы по категории Информатика
Дан фрагмент программы: А: =10; В: =30; С: =20; Y:=A; if B>Y then Y:=B; if C>Y then Y:=C; writeln (Y); Какое число будет напечатано на экр...
ПОМОГИТЕ ПОЖАЛУЙСТА ЭТО СРОЧНО . По заданному алгоритму составь блок-схему...
1. Калькулятор, работающий в семиричной системе счисления имеет пять знакомест для вывода числа на экран. С каким самым большим десятичным числом можн...
Алфавит племени Мульти состоит из 8 букв. Какое количество информации несет одна буква этого алфавита?...
Меню текстового редактора это - Опишите почему !...