текстовая задачка. В английском предложении слова отделены одним или несколькими пробелами.

@MeDZveDZE · Регистрация: 08.05.2011

В английском предложении слова отделены одним или несколькими пробелами. Написать программу, проверяющую, во всех ли словах предложения согласная буква чередуется с гласной. Результат вывести на экран.

@Krot-buterbrod · 01.05.2012, 19:56

Pascal

const glas='eyuioa';
var i: integer;
    st: string;
    b: boolean;
begin
     readln(st); st:=st+' ';
     for i:=1 to length(st)-1 do
         if not(
                   ((pos(st[i],glas)<>0) and (pos(st[i+1],glas)=0))
                or ((pos(st[i],glas)=0) and (pos(st[i+1],glas)<>0))
                or ((st[i]=' ') or (st[i+1]=' '))
                ) then b:=true;
     b:=not(b);
     writeln('Чередуются: ',b);
end.

@MeDZveDZE · 01.05.2012, 23:52 **[ТС]**

спасибо большое

@MeDZveDZE 1 / 1 / 0 Регистрация: 08.05.2011 Сообщений: 5
		1
	текстовая задачка. В английском предложении слова отделены одним или несколькими пробелами. 01.05.2012, 17:23. Просмотров 1054. Ответов 2 Метки нет (Все метки) В английском предложении слова отделены одним или несколькими пробелами. Написать программу, проверяющую, во всех ли словах предложения согласная буква чередуется с гласной. Результат вывести на экран. 0

@MeDZveDZE 1 / 1 / 0 Регистрация: 08.05.2011 Сообщений: 5
	01.05.2012, 23:52 [ТС]	3
	спасибо большое 0

Опции темы

текстовая задачка. В английском предложении слова отделены одним или несколькими пробелами.

Решение