Консультация № 197151
20.11.2019, 09:46
0.00 руб.
0 1 1
Здравствуйте! У меня возникли сложности с таким вопросом:Дано предложение, определить количество слов,
начинающихся с сочетания «ка».Через процедуру.Pascal

Обсуждение

давно
Профессор
401888
1232
20.11.2019, 10:40
общий
это ответ
Здравствуйте, kondrat322!
[code lang=pascal]const rz=[' ',','];//разделители слов(пробел, запятая)
//можно добавить в зависимости от вводимых строк
var s:string;
i,k:integer;
begin
writeln('hjj',#9,'jkl');
writeln('Введите предложение на кириллице, в том числе слова на "ка"');
readln(s);
s:=' '+s;//добавим пробел в начало для удобства счета
k:=0;
for i:=2 to length(s)-1 do
if(s[i-1] in rz)and(copy(s,i,2)='ка') then inc(k);
write('Количество слов на ка=',k)
end.[/code]
Форма ответа