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

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

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

Помечено: 

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

  • Автор
    Сообщения
  • #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.

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