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

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

Помечено: ,

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

Просмотр 1 сообщения - с 1 по 1 (всего 1)
  • Автор
    Сообщения
  • #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.

Просмотр 1 сообщения - с 1 по 1 (всего 1)

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