Правила форума
Помогите пожалуйста!
Условие задачи: подсчитать количество слов, оканчивающихся на ЕЕ в нечетных абзацах и на О в четных.
У меня получается найти слова в предложениях, но я не могу понять как это сделать с абзацами.
Program work;
uses crt;
var
k,k1:integer;
s,s1,s2,s3,s4:string;
begin
writeln('Ведите предложение');
readln(s);
s:=s+' ';
k:=0;
s1:='ее';
while s<>'' do
begin
s2:=copy(s,1,pos(' ',s)-1);
if pos(s2[length(s2)],s1)<>0 then
k:=k+1;
delete(s,1,pos(' ',s));
end;
writeln('Слова, оканчивающиеся на ее = ',k);
writeln('Ведите предложение');
readln(s);
s:=s+' ';
k1:=0;
s3:='о';
while s<>'' do
begin
s4:=copy(s,1,pos(' ',s)-1);
if pos(s4[length(s4)],s3)<>0 then
k1:=k1+1;
delete(s,1,pos(' ',s));
end;
write('Слова, оканчивающиеся на о = ',k1);
readln;
end.
 Работа со строками, Подсчет количества слов |
