Посчитать количество букв k в последнем слове строки.

[Katyusha123]

Посчитать количество букв k в последнем слове строки.

помогите пожалуйста очень нужно(((( срс надо завтра сдать а это последний пункт в решении самостоятельной:tehnari_ru_138::tehnari_ru_138:

 

[Vladimir_S]

Удостоверение члена клуба ТЯП (Тайна Языка Программирования) - за мной.

 

[Katyusha123]

ПОМОГИТЕ УМОЛЯЮ ЭТО УСЛОВИЕ ЗАДАЧИ(((=>>>>посчитать количество букв k в последнем слове строки.

 

[Katyusha123]

нужно сделать на паскале для второго курса техникума

 

[Vladimir_S]

нужно сделать на паскале для второго курса техникума

Так вот это и надо сразу указывать! Ладно, сейчас посмотрю.

 

[Katyusha123]

спасибо огромное заранее

 

[Vladimir_S]

Получите:

VAR
 S:String;
 N,i:Integer;
BEGIN
 WriteLn('Enter the string:');
 ReadLn(S);
 i:=Length(S);
 N:=0;
 Repeat
  If S[i]='k' then Inc(N);
  Dec(i);
 Until S[i]=' ';
 WriteLn('Number of "k" letters in the last word of string is ',N);
 ReadLn;
END.

 

[Katyusha123]

СПАСИБО вы мне очень помогли:tehnari_ru_159: