**Определить, сколько слов оканчивается на заданный символ**
Что может быть проще:
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 |