Строки

[Никита757]

Подскажите пожалуйста, как исправить код так, чтобы выдавал слово под номером k, а не его первую букву? и еще, если количество слов в строке меньше k, то вывести соответствующее сообщение.

var
    str: string;
    len, count, flag, i, n: byte;
 
begin
	writeln('String: '); readln(str);
	write('Word №: '); readln(n);
	len := length(str);
	count := 0;
	flag := 0;
	for i:=1 to len do begin
		if (str[i] <> ' ') and (flag = 0) then begin
			count := count + 1;
			flag := 1;
			if count = n then break; 
		end;
		if str[i] = ' ' then flag := 0;
	end;
 
	writeln(str[i]);
end.

[Stilet]

Не желаешь так делить на слова строку?: http://www.programmersforum.ru/showt...369#post398369

[Никита757]

А по моей не подскажете как сделать?
Пока не разобрался с этой темой хорошо

[Aleksandr H.]

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

Не желаешь так делить на слова строку?: http://www.programmersforum.ru/showt...369#post398369

Stilet, верите в грамотность учеников которые слова разделяют 1 пробелом?

var
    str,word: string;
    len, count, flag, i, n: byte;
 
begin
	writeln('String: '); readln(str);
	write('Word №: '); readln(n);
	len := length(str);
	count := 0;
	flag := 0;
word := '';
	for i:=1 to len do begin
		if (str[i] <> ' ') and (flag = 0) then begin
			count := count + 1;
			flag := 1;
word:=word+str[i];
			if count = n then writeln(word);; 
		end
else word:='';
		if str[i] = ' ' then flag := 0;
	end;
 if count<n then writeln('HAlt motherf**cker');
	
end.

[Stilet]

верите в грамотность

Нет. Верю в гречневую кашу у них в голове. Вот топоры и добавляю, чтоб все по-феншую было.