подсчет букв С в последнем слове

[Obey177]

Нужна такая программа что бы я вписывал предложение допустим *сссссс сссс ссссс сссс сссс* и она должна посчитать буквы с в последнем слове

[Stilet]

 i=Длине строки
 Пока Строка[i]<>' ' уменьшать i и увеличивать счетчик

[Obey177]

Сообщение от Stilet

 i=Длине строки
 Пока Строка[i]<>' ' уменьшать i и увеличивать счетчик

мне надо в последнем слове а не во всех и исходный код...

[Mad_Cat]

s:=trim(s);
while pos(' ',s)<>0 do
delete(s,1,pos(' ',s));
cc:=0;
for i:=1 to length(s) do
if s[i]:='c' then inc(cc);

[Stilet]

мне надо в последнем слове

А это и подсчитывает в последнем слове.
Разве что я забыл вписать
Пока Строка[i]<>' ' если Строка[i]="с" то увеличивать счетчик, уменьшать i

и исходный код.

Это он и есть.

Mad_Cat

Шож так сложно то? И с чеготы взял что автору нужен именно Паскаль?

[p51x]

и исходный код...

Вам прямая дорога во фриланс.

[Obey177]

нужен делфи

[Mad_Cat]

И с чеготы взял что автору нужен именно Паскаль?

просто почитал предыдущие посты автора)

Шож так сложно то?

а никто просто и не просил)

нужен делфи

эт он(а) и есть)