Кодинг
★ Рубрика: Кодинг
★ Тема: Pascal

Посчитать число слов в предложении - Паскаль

Дано предложение, надо определить количество слов в нём. Одно слово от другого отделено пробелом.
program z38;
uses crt;
var tec : string;
 l,i,n : longint;
 begin
 clrscr;
 write('введите текст:');readln(tec);
 l:=length(tec)+1;tec[l]:=' ';
 for i:=1 to l do if tec[i]=' ' then n:=n+1;
 write('В тексте ',n,' слов');
 readln;
 end.
 Похожие публикации: Pascal

Войдите, чтобы добавить Ваш ответ. [ Регистрация | Вход ]