Дана последовательность слов, между соседними словами запятая, за последним словом точка. Напечатать в алфавитном порядке все глас

[zirko_o]

Дана последовательность слов, между соседними словами запятая, за последним словом точка.
Напечатать в алфавитном порядке все гласные буквы, которые не входят в более чем одно слово.

Очень сильно прошу вашей помощи!

[Stilet]

Попытки какие-нить были?

[zirko_o]

Пока что нет.

[Smitt&Wesson]

Сообщение от zirko_o

Дана последовательность слов, между соседними словами запятая, за последним словом точка.
Напечатать в алфавитном порядке все гласные буквы, которые не входят в более чем одно слово.

Очень сильно прошу вашей помощи!

В чём? Выбрать язык или на суржике? В PHP есть регулярки, может это как то Вам поможет.

[Streletz]

to zirko_o

Сообщение от zirko_o

Пока что нет.

Простите, но [Помочь]<>[Сделать за Вас].
Конечно, могут найтись Добрые люди, которые сделают за Вас на халяву без каких-либо Ваших наработок. Но, здесь речь уже скорее об исключениях.
to Smitt&Wesson

В чём? Выбрать язык или на суржике? В PHP есть регулярки, может это как то Вам поможет.

Простите, но язык программирования указан в названии раздела. Это Pascal.

[Stilet]

Ладно. Попробую помочь.

program Project1;

{$mode objfpc}{$H+}

uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Classes
  { you can add units after this };
var
  s:string;
  c:array['a'..'z',1..2] of integer;
  i,k:integer;
  v:char;
begin
  s:='hello,my,word';
  k:=1;
  for i:=1 to length(s) do begin
   if s[i]<>',' then begin inc(c[s[i],1]); c[s[i],2]:=k; end else inc(k);
  end;
  for v:=low(c) to high(c) do
   if (c[v,1]=1)or(c[v,2]=1) then writeln(v,'=',c[v,1],',',c[v,2]);
  readln;
end.

Это с потолка. Не тестировал.

[Poma][a]

С моего потолка :

uses SysUtils;

const
	vowels = 'AEIOUY';


var
	s, wrd : string;
	a : array [0..Length(vowels)] of Integer;
	i : Integer;

begin
	ReadLn(s);
	s := Trim(s); 

	wrd := '';
	for i := 1 to Length(s) do
		if s[i] = ',' then begin
			while Length(wrd) > 0 do begin
				Inc(a[Pos(UpCase(wrd[1]), vowels)]);
				wrd := StringReplace(wrd, wrd[1], '', [rfReplaceAll]);
			end;
		end
		else wrd := wrd+s[i];

	for i := 1 to Length(vowels) do
		if a[i] < 2 then
			Write(vowels[i] : 2)
end.

[zirko_o]

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

Огромное спасибо за помощь!

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

[Streletz]

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

Без обид, просто маленький совет. Боритесь с собой и с этим желанием пока не поздно.
Каждая задача, лабораторная, курсовик и т.д., сделанные самостоятельно, добавляют Вам не только знания и оценки, но и, в первую очередь, возможности и цену на рынке труда. Возможная, даже стартовая, зарплата зависит от уровня Ваших знаний.
"Делегируя часть своих дел" Вы наносите ущерб, в том числе материальный, самой себе. Причём, в первую очередь, в долгосрочной перспективе.
В прочем, решать Вам...

[zirko_o]

Спасибо!
Никаких обид, все верно, я стараюсь так и делать)