Составьте программу нахождения...

Тема в разделе "Информатика", создана пользователем Егорка, 2 янв 2010.

  1. Егорка

    Егорка New Member

    Составьте программу нахождения количества слов в предложении. Предложение состоит из слов, отделенных друг от друга одним пробелом. Предложение вводится склавиатуры.
     
    Егорка, 2 янв 2010
    #1
  2. Ru.da

    Ru.da New Member

    Program Task;
    Var s: String;
    i, r: Integer;
    Begin
    WriteLn('Введите предложение:');
    ReadLn(s);
    If (Length(s) > 0) And (s[1] <> ' ') Then
    r := 1;
    For i := 1 To Length(s) Do
    If s = ' ' Then
    r := r + 1;
    WriteLn('Результат: ', r);
    ReadLn;
    End.
     
    Ru.da, 2 янв 2010
    #2

Поделиться этой страницей

Наша группа