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

[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

[klem4]

это из-за того, что по этому условию :

if(i<n) and (s[i]=d) and (s[i+1]=' ')

после конца слова должен быть пробел, надо немного изменить условие и все будет ок ;)