Количество слов в строке на Pascal

      Комментарии к записи Количество слов в строке на Pascal отключены

Главная Форумы Программирование Программирование на Pascal Количество слов в строке на Pascal

Помечено: ,

В этой теме 0 ответов, 1 участник, последнее обновление  Васильев Владимир Сергеевич 6 мес., 3 нед. назад.

  • Автор
    Сообщения
  • #3784

    Подсчитать, сколько слов в строке, которая заканчивается точкой.

    Решение:

    program characters_and_strings_3;
    uses crt;
      var s: string;
      i, c: integer;
    begin
      clrscr;
      write('Строка > '); read(s);
      c:=1;
      for i:=1 to length(s) do
        if s[i]=' ' then c:=c+1;
      write('В строке ', c, ' слов(а)');
      readkey;
    end.

Для ответа в этой теме необходимо авторизоваться.