uses crt; var max,st,k:string; begin clrscr; readln(st); st:=st+' '; max:=''; while pos(' ',st)<>0 do begin k:=copy(st,1,pos(' ',st)); if length(k)>length(max) then max:=k; delete(st,1,pos(' ',st)); end; writeln(max); readln; end.
program bai_giai; uses crt; var st,s,t:string; i:byte; begin clrscr; write('Nhap xau: '); readln(st); s:=''; t:=''; for i:=1 to length(st) do if st[i]<>' ' then t:=t+st[i] else begin if length(t)>length(s) then s:=t; t:=''; end; if length(t)>length(s) then s:=t; write(s); readln; end.
