Лучшие помощники
- Megamozg 2205 б
- Matalya1 1800 б
- DevAdmin 1720 б
- arkasha_bortnikov 900 б
- Dwayne_Johnson 870 б
14 декабря 2022 18:45
1287
Дана строка. Подсчитать количество слов,заканчивающихся буквой и.
Мышки ели шишки
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. if B = then Writeln ('Деление на ноль невозможно'); 2. if a > b then max:= a els...
найдите десятичные эквиваленты чисел по их прямым кодам записанным в 8 разрядном формате со знаком: а)01001100. б)00010101....
Сколько раз выполняется цикл в фрагменте программы: a:=1; b:=1; While a+b < 8 do begin a:=a+1; b:= b+2 end....
Дано трёхзначное число. Напишите программу, которая определяет: а) есть ли среди цифр заданного целого трёхзначного числа одинаковые; пример входных д...
ProgramSumma;usescrt; constn=5; var a: array[1..n] of integer; m,i,s: integer; Автоматическое заполнение случайными числами от1 до20 procedure...
Все предметы 
