Лучшие помощники
- Megamozg 2205 б
- Matalya1 1800 б
- DevAdmin 1720 б
- arkasha_bortnikov 900 б
- Dwayne_Johnson 870 б
14 декабря 2022 18:45
1053
Дана строка. Подсчитать количество слов,заканчивающихся буквой и.
Мышки ели шишки
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
Остались вопросы?
Еще вопросы по категории Информатика
Строка содержит число. Найдите его и переведите в целочисленную переменную. s = "в группе учится 23 студента"...
1. Чему равен 1 Кбайт ... 1) 1000 бит 2) 103 байт 3) 210 байт 4) 1024 бит 2. Какое количество информации получит второй игрок при игре в крестики-но...
К пятизначному натуральному числу применяется следующий алгоритм: 1) вычислить сумму первых двух цифр; 2)вычислить сумму последних трех цифр; 3) зап...
Как связаны мощность алфавита и разрядность двоичного кода, достаточного для кодирования всех символов этого алфавита....
ПОМОГИТЕ ПОЖАЛУЙСТА Постройте графическую модель вашей комнаты, указав на ней рас-положение всех предметов мебели, окон и дверей. Запишите название по...