строки Опции

[bora]

Привет всем помогите кто решить задачу

дано предложение,в котором слова отделяются друг от друга запятой и пробелом или несколькими пробелами.В конце слова стоит точка.Необходимо:
1)подсчитать количество различных слов в предложении;
2)удалить из предложения все слова,имеющие две буквы'o'.

Сообщение отредактировано: bora - 12.03.2006 19:26

[bora]

Написал задачу а она не правильно пашет.Помогите отредактировать плизз завтра сдавать

program SJenya;
uses crt;
var
st:string;
o,Io,prob,i,k:byte;
begin
clrscr;
write('WWEDITE STROKU: ');
readln(st);
k:=1;  o:=0;
for i:=1 to length(st) do begin
    if st[i]=' ' then k:=k+1;
writeln('KOL-WO SLOW W STROKE: ', K);
prob:=pos(' ',st);
for i:=1 to prob do
if st[i]='o' then begin Io:=i;
o:=o+1; end;
if o=2 then
delete(st,1,prob);
end;
writeln(st);
readkey;
end.

Пользуйся тегами

Сообщение отредактировано: klem4 - 13.03.2006 20:15