Написать программу на паскале, которая определяет количество предложений во введенном тексте.

в предложении "персональный компьютер компании Apple" имеются 4 слова, отделенные друг от друга 3 пробелами.
Из приведенного образца видно, что количество слов в строке можно найти как сумму имеющихся в строке пробелов плюс единица.

program help;
Uses Crt;
var
i,k,ks,1:integer; с: char; s:string;

begin
ClrScr;
writeln('Введите строчку. Ввод окончите нажатием кнопки Enter');
writeln;
readln(s) ;
l:=length(s);
k:=0;(k - счетчик количества пробелов
for i:= 1 to 1 do
begin
c:=s;
if c=' ' then k:=k+l
end;
ks:=k+l;
writeln;
writeln('количество слов в данной строке сочиняет ',ks);
readln
end.

Васька Кичкайло 2019-07-28 05:32:32

Кто то не подумав написал строку for i:= 1 to 1 do

Инна 2019-07-28 05:41:20

Все-таки заместо 2-ой единицы превосходнее написать L

Леночка Зайвина 2019-07-28 05:49:55

for i:= 1 to L do

Паша Дужеев 2019-07-28 05:38:18

тут есть еще ошибки!

Софья Фольченкова 2019-07-28 05:47:23

нельзя переменной символьного типа присваивать целую строку из нескольких знаков! Превосходнее заместо строчки c:=s; написать c:=s[i];

Romejkin Denis 2019-07-28 05:53:00

Заместо if c=' ' then k:=k+l необходимо написать if c=' ' then k:=k+1

Закрошкина Лилия 2019-07-28 05:38:49

то есть заместо L нужно писать 1!!

Кира Ахметнабиева 2019-07-28 05:31:01

аналогично в строке ks:=k+l; необходимо писать ks:=k+1;

О проекте

Написать программу на паскале, которая определяет количество предложений во введенном тексте.

Добро пожаловать!