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

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

Задать свой вопрос
1 ответ

Program A;


var

c:char;

s:integer;


begin

s:=0;

while not eoln do //пока не конец строчки

 begin

  read(c);

  if c=' ' then

   s:=s+1;

end;

write(s+1);

end.

Пашка Соломашов
Если не трудно, отметьте как лучшее.
Посалин Вадим
а что после while not
Юля
while not eoln do. eoln - end of line - конец строчки. Т.е. Продолжать цикл, пока НЕ конец строчки.
Варзановцев Коля
пока не конец строчки в скобках писать?
Бурич Юра
Нет.
Оксана Христолюбова
А почему же вы отметили ответ как нарушение?
Shkaruba Uljana
я нечайно
Дубиль Серега
извините пожалуйста
, оставишь ответ?
Имя:*
E-Mail:


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

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт