строки

[sergi]

помогите решить
Определить в строке символов последовательность длинной 10 подряд идущих символов, которая содержит наибольшее число согласных букв.Заранее спасибо!

[psycho-coder]

Как то так. Код не проверял

uses
	Crt;
	
const
	LEN = 10;
	Sogl = 'qwrtupsdfghjklzxcvbnm';
	
var
	i, l: integer;
	S: String;
	Position: Integer;
	Count: Integer;
	tmp: Integer;
begin
	ClrScr;
	S := 'preved kak dela iiiii';
	Count := 0;
	Position := 0;
	tmp := 0;
	
	for i := 1 to Length(S) - LEN do
	begin
		tmp := 0;
		for l := 1 to LEN do
		begin
			{ Вот тут [Sogl] - сомнения, давно не пользовался таким (( }
			if (S[i + l] in [Sogl]) then Inc(tmp);
		end;
		if tmp > Count then
		begin
			Count := tmp;
			Position := i;
		end;
	end;
	
	WriteLn('Max into = ', i, ' : ', i + LEN);
	ReadKey;
end;

[WhiteSpirit]

Ещё вариант, в Delphi и для русского языка:

function f1(Text: String): Integer;
var i, Position: Integer;
    cs: set of Char;
    str: String;
begin
if Length(Text) < 10 then Exit;
str:=AnsiUpperCase(Text);
cs:=['А', 'Е', 'Ё', 'И', 'О', 'У', 'Ы', 'Э', 'Ю', 'Я'];
Position:=1;
for i:=11 to Length(str) do
    if not (str[i] in cs) and (str[i - 10] in cs) then Position:=i - 9;
ShowMessage(Copy(Text, Position, 10));
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
f1(Edit1.Text);
end;