Записи

[_Hanter_]

Вот програма, но она работает не до конца. Не знаю в чем ошибка помогите

Надрукувати слова, в яких голоснийі літери (a, e, i, o, u) чергуються з приголосними.

var t,s: string;
j,i:byte;
f:boolean;
begin
readln (s);
S:=' '+s;
i:=1;
while i<length (s) do begin 
 if (s[i]=' ') and (s[i+1]<>' ') then begin t:=' ';
  i:=i+1;
  while (s[i]<>' ') and (s[i+1]<>'.') do
begin t:=t+s[i]; inc(i); end;
 j:=1; writeln (t);
 f:=true;
while j<length (t) do begin
  if ((t[j] in ['a','e','i','o','u']) and (t[j+1] in ['a','e','i','o','u']))
  or (not(t[j] in ['a','e','i','o','u']) and (t[j+1] in ['a','e','i','o','u'])) then 
   f:=false; inc(j); end;
   if f=true then writeln (t); 
dec(i);
end;
inc(i);
end;
end.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[_Hanter_]

что некто не может помочь???

[IT-man]

что некто не может помочь???

Надрукувати слова, в яких голоснийі літери (a, e, i, o, u) чергуються з приголосними.

Знание украинского языка не является обязательным для программистов России

[_Hanter_]

Сообщение от IT-man

Знание украинского языка не является обязательным для программистов России

Вот на русском:
Напечатать слово в которых, гласные буквы (a, e, i, o, u) чередуются с негласными