Дана символьная строка и символ.

[OoDarK]

Дана символьная строка и символ. Слово последовательность символов между пробелами, не содержащая пробелы внутри себя, Определить кол-во слов в строке оканчивающих на заданный символ.




Помогите пожалуйста написать данную программу на тему:символьный,строковый тип
Второй курс Delphi7.

[Hacker19_90]

for i := 1 to length(stroka) do
begin
    if (stroka[i] = ' ') and (stroka[i-1] = symbol) then Inc (koli4estvo)
end;

ну это конечно не ахти алгоритм

[Mad_Cat]

Hacker19_90
только в начале еще

stroka:=stroka+' ';

[Mad_Cat]

...................ЛАГИ............ ....

[OoDarK]

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

for i := 1 to length(stroka) do
begin
    if (stroka[i] = ' ') and (stroka[i-1] = symbol) then Inc (koli4estvo)
end;

ну это конечно не ахти алгоритм

Спасибо конешно огромное но я полный нуб и чайник если кто может написать полностью прогу что бы только скопировать практически только надо было и в компилятор вставить

[Hacker19_90]

только в начале еще
Код:

stroka:=stroka+' ';

+1 поддерживаю

[Mad_Cat]

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

Фрилансер за $

[Hacker19_90]

Фрилансер за $

ну что сразу за $, я и за рубли могу )))))))))))))))))

[OoDarK]

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

ну что сразу за $, я и за рубли могу )))))))))))))))))

20 руб есть сделаешь скину....