Найти все гласные, которых нет хотя бы в одном четном и в одном нечетном словах

Категория: Delphi/Pascal
2012-02-01 22:02:41

Вводится символьная строка, состоящая из "слов" - последовательностей символов, не содержащих пробелов. Отдельные "слова" отделены друг от друга пробелами. Эти "слова" мысленно нумеруются по порядку их расположения в строке: первое, второе, третье и т.д., поэтому к ним применимы такие понятия, как четное, нечетное, кратное M слово - здесь везде подразумевается по номеру.

code: #pascal
program ht;
 
var p,code:integer;
    i,j,n:integer;
    s,x:string;
    A:array[1..100] of string;
    glasn:string;
    b:boolean;
 
begin
glasn:='aeiouy';
 
write('Vvedite stroky slov: ');
readln(s);
j:=0;
repeat
inc(j);
p:=pos(' ',s);
x:=copy(s,1,p-1);
if p=0 then x:=s;
A[j]:=x;
delete(s,1,p);
until p=0;
n:=j;
 
 
for i:=1 to length(glasn) do
    begin
         b:=true;
         for j:=1 to n do
         if pos(glasn[i],A[j])=0 then b:=false;
 
        if not b then writeln(glasn[i]);
    end;
readln;
end.
Поделиться:

Похожие статьи:

теги: массив, одномерный массив, студенты, работа со строками, строки