Вроде бы легкая задача про строки Опции

[Tim]

Задача вроде бы совсем проста:
**Определить, сколько слов оканчивается на заданный символ**
Что может быть проще:

program Project2;
  uses
  SysUtils;
var s:string;
i,n,k:integer;
d:char;
begin
writeln ('Input S');
readln(s);
n:=length(s);
d:='a';
k:=0;
for i:=1 to n do;
if(i<n) and (s[i]=d) and (s[i+1]=' ') then
k:=k+1;
writeln(k);
end.

Но ничего не выходит, не подскажите по чему?

М

Пользуемся тегами CODE ! klem4

[volvo]

Alex7, я не про это... Не всегда же человек тебе дает полную постановку задачи... А если ему нужно будет реалировать этот алгоритм в функции? И вот такой заголовок ему дадут:

Function CountWords(Const s: String; Ch: Char): Integer;

твой алгоритм придется переписывать заново, потому как Const изменить (добавить к строке пробел) не удастся... А мой - сработает без изменений... Привыкать, так сразу к правильному...

Не забывай, код надо писать так, чтобы можно было его использовать НЕоднократно (и желательно - без изменений)