Подсчитать количество слов в строке. Слова разделены одиночными пробелами

@Apel'sin32rus · Регистрация: 02.04.2012

Пожалуйста напишите программу полностью, а не кусочек

@CodeR · 26.06.2012, 16:11

Pascal

Var s:string;
    i:integer;
Begin
    write('Введите строку: ');readln(s);
    s:=s+' ';i:=0;
    While Pos(' ',s)<>0 do
     Begin
      Delete(s,1,Pos(' ',s));
      inc(i);
     End;
    writeln('Слов в строке: ',i);
    readln;
End.

@Apel'sin32rus 1 / 1 / 1 Регистрация: 02.04.2012 Сообщений: 13
		1
	Подсчитать количество слов в строке. Слова разделены одиночными пробелами 26.06.2012, 14:10. Показов 3347. Ответов 1 Метки нет (Все метки) Пожалуйста напишите программу полностью, а не кусочек __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

Опции темы

Подсчитать количество слов в строке. Слова разделены одиночными пробелами

Решение