Определить, сколько раз в последовательности встречаеться слово ЁЖ.

@IIaJIbI4 · Регистрация: 16.11.2009

Author24 — интернет-сервис помощи студентам

В край нужно сдать... Помогите.
Дана последовательность символов S1...Sn (n - заранее неизвестно). Последний символ "!". Группы символов,разделенные пробелом, будем называть словами. Определить, сколько раз в последовательности встречаеться слово ЁЖ.
Я набросал но походу чет не то...

Pascal

Program EJEG;
var
*s:string;
*k,d,j,l:integer;
begin
*
*writeln('Enter s');
*readln(s);
*
writeln('skolko vsego slov?');
readln(d);
*
j:=0;
l:=0;
while j<d do
*begin
*k:=pos(' ',s)-1;
*if s[k] in ['Ж'] then
* begin
*K:=k-1;
*if s[k] in ['Ё'] then k:=k-1;
*if s[k] in[' '] then inc(l);
end;
inc(j);
end;
*
writeln(l);
readln;
*
end.

@кот Бегемот · 26.12.2009, 09:48

Pascal

var
a:string;
c:char;
i,kol:integer;
begin
repeat
writeln('vvedite simvol');
readln(c);
a:=a+c;
until c='!';
a:=' '+copy(a,1,length(a)-1)+' ';
for i:=1 to length(a)-3 do
if copy(a,i,4)=' ej 'then inc(kol) ;
writeln('otvet=',kol);
readln;
end.

	26.12.2009, 09:48