Строки.Паскаль.

дана строка текста,в которой слова разделены пробелами определить количество слов в строке и выведите на экран каждое нечётное число
4 ответа

дана строка текста,в которой слова разделены пробелами определить количество слов в строке
K:=0;
for i:=1 to n do
 if S[i]=' ' then k:=k+1;
Write('Слов в строке',k+1);


там надо ещё вывести каждое нечётное а как это сделать я хз


K:=0;
for i:=1 to n do
 if S[i]=' ' then k:=k+1;
Write('Слов в строке',k+1);
там как-то ещё нечётные слова вывести надо...


Забейте в поисковик строку "разбить строку на слова паскаль". И первая же ссылка - ваше решение.