Строки

[Archangelos]

Задано предложение y, состоящее из слов-строк. Проверить, встречается ли данное слово х в предложении у.

Очень прошу помочь.
Программу прошу писать полностью

[alex_fcsm]

Если правильно понял

uses crt;
var s,sub:string;
begin
s:='';
while pos('.',s)=0 do begin
readln(sub);
s:=s+sub+' ';
end;
writeln('input word');
readln(sub);
if pos(sub,s)<>0 then writeln('Yes')
   else writeln('NO');
end.

[Scorp]

У меня строки. дан текст из 60 символов . Напечатать этот текст, подчеркиваю(ставя минусы в соответствующих позициях строки ) все входящие в него гласные/ есть мастера, способные помочь?)

[Scorp]

Вообщем минусы в позициях гласных. Помогите пожалуйста

[__STDC__]

var	
	s,low:string;
	x:set of char;
	i:byte;
begin
	low := '';
	x := ['e','y','u','i','o','a'];
	s := 'Hello, World. How are you?';
	for i:=1 to length(s) do
		if (s[i] in x) then
			low := low+'-'
		else
			low := low+' ';
	writeln(s);
	writeln(low);
	readln;
end.

так что ли?

[Scorp]

Чет не подчеркивает гласные. Подчеркивает несколько букв в начале фразы

[__STDC__]

Значит вы что-то делаете неправильно...
23526.jpg