Từ Dài Nhất WORD - Thầy Quách Văn Lượm

4 nhận xét:

1. Nhật Anhlúc 16:53 15 tháng 9, 2019

   Uses crt;Var s:string;x:char;f:array[1..500] of string;i,j,o,max:longint;Beginreadln(s);o:=1;s:=' '+s+' ';readln(x);For i:=2 to length(s) doBeginIf (s[i]=x)and(s[i-1]=' ') thenBeginFor j:=i to length(s) doIf s[j]=' ' then break;f[o]:=copy(s,i,j-i);o:=o+1;end;end;For i:=1 to o-1 doif length(f[i])>max then max:=length(f[i]);For i:=1 to o-1 doIf length(f[i])=max then Writeln(f[i]);readln;end.

   Trả lờiXóaTrả lời
   Trả lời
2. Trần Trung Nguyễnlúc 15:55 23 tháng 11, 2019

   Nhận xét này đã bị tác giả xóa.

   Trả lờiXóaTrả lời
   Trả lời
3. Trần Trung Nguyễnlúc 16:02 23 tháng 11, 2019

   program p;uses crt;var a,b:array[1..100] of string; d,i,max:integer; s,k,st:string;beginclrscr;d:=0; max:=0;readln(s); readln(k);s:=s+' '; while length(s)<>0 do begin st:=copy(s,1,pos(' ',s)); if st[1]=k then begin d:=d+1; a[d]:=st; end; delete(s,1,pos(' ',s)); end;for i:=1 to d do if length(a[i])> max then max:=length(a[i]); if length(a[i])=max then write(a[i]);readlnend.

   Trả lờiXóaTrả lời
   Trả lời
4. Trần Trung Nguyễnlúc 17:20 2 tháng 1, 2020

   program n;uses crt;var s,s1,k:string; vt,i:integer;beginclrscr;readln(s); readln(k);s:=s+' ';for i:=1 to length(s) do begin if pos(' ',s)<>0 then begin vt:=pos(' ',s); s1:=copy(s,1,vt-1); if s1[1]=k then writeln(s1); delete(s,1,vt); end; end;readln;end.

   Trả lờiXóaTrả lời
   Trả lời

Thêm nhận xétTải thêm...

Dùng nick gmail để bình luận. Nếu lần đầu tiên bạn làm điều này thì hệ thống sẽ chuyển bạn sang trang blogger và hỏi bạn chọn tên hiển thị là gì. Bạn hãy nhập tên hiển thị rồi ok là được. Những lần bình luận sau hệ thống sẽ không hỏi nữa. Cảm ơn!