Количество пробелов в строке

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

Помечено: 

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

Просмотр 1 сообщения - с 1 по 1 (всего 1)
  • Автор
    Сообщения
  • #3759

    Напишите функцию, предназначенную для вычисления количества пробелов в веденной строке.

    Решение:

    program functions_6;
    uses crt;
    var
      s: string;
    function space(ss: string): integer;
    var i, p: integer;
    begin
      p:=0;
      for i:=1 to length(s) do
        if ord(s[i])=32 then p:=p+1;
          space:=p;
    end;
    begin
      clrscr;
      write('Строка > '); read(s);
      write('Строка содержит ', space(s), ' пробел(a/ов)');
      readkey;
    end.

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

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