Програмування рядкових величин, Детальна інформація

@

b

f

U величина), слова якої розділені символом “пропуск”.

1. Знайти кількість слів у тексті.

2. Надрукувати окремо з нового рядка кожне слово тексту.

3. Знайти i надрукувати найдовше слово тексту.

 

 

program strings; 

uses crt; 

var s,t:string;

  i,k:integer; 

procedure kol(s:string; var k:integer); 

{ процедура знаходження кiлькостi слiв у текстi ( текст мiстить хоча б одно слово } 

var i,n:integer; 

begin

  k:=1;

  n:=length(s);

  for i:=1 to n do

  if s[i]=’ ‘ then k:=k+1; 

end; 

procedure druk(s:string); 

{ процедура друкування слів тексту } 

var n:integer;

  s1:string; 

begin

  n:=pos(‘ ‘,s);

  while n<>0 do

  begin