Предмет: Информатика, автор: MarkovkaKul

Помогите пожалуйста, Паскаль АБС .

Приложения:

Ответы

Автор ответа: YuriNazarov
2

program name;

uses crt;

var str: string;

   i, count: integer;

begin

  write('Текст : ');readln(str);

       i := length(str);

       if i > 0 then begin

               count := 1;

               while i > 0 do begin

                       if str[i] = ' ' then

                               count := count + 1;

                       i := i - 1;

               end;

       end

       else

               count := 0;

 

 

       writeln('Кол-во строк в тексте: ', count);

readln;

end.

Приложения:
Похожие вопросы
Предмет: Геометрия, автор: mirrka2001