Viết Ct Nhập Vào 1 Xâu In Ra Màn Hình Từ Dài Nhất Trong Xâu đó

Có thể bạn quan tâm

Tìm×

Tìm kiếm với hình ảnh

Vui lòng chỉ chọn một câu hỏi

Tìm đáp án

- Đăng nhập
- |
- Đăng ký

Hoidap247.com Nhanh chóng, chính xác

Hãy đăng nhập hoặc tạo tài khoản miễn phí!

Đăng nhậpĐăng ký

Đặt câu hỏi

logo

Lưu vào

+
Danh mục mới

Lưu

tieuchienvuongnhatbac20
Chưa có nhóm

Trả lời
0
Điểm
55
Cảm ơn
0

Tin Học
Lớp 8
10 điểm
tieuchienvuongnhatbac20 - 16:37:07 05/02/2020

Viết ct nhập vào 1 xâu in ra màn hình từ dài nhất trong xâu đó

Hỏi chi tiết
Báo vi phạm

Hãy luôn nhớ cảm ơn và vote 5* nếu câu trả lời hữu ích nhé!

TRẢ LỜI

bocaudinang
Chưa có nhóm

Trả lời
86
Điểm
1335
Cảm ơn
45

bocaudinang

06/02/2020

Viết = pascal nha

program tudainhat;var S,Max,Tu:string; i:integer;begin readln(S); Tu:=''; Max:=''; S:=S+' '; for i:=1 to length(S) do if S[i]<>' ' then Tu:=Tu+S[i] else begin if length(Tu)>=length(Max) then Max:=Tu; Tu:=''; end; writeln('Tu dai nhat la: ',Max); readln;end.

Hãy giúp mọi người biết câu trả lời này thế nào?

starstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstar4starstarstarstarstar5 voteGửiHủy

Cảm ơn 2
Báo vi phạm

- baobao390
- Chưa có nhóm
- Trả lời
  11
- Điểm
  200
- Cảm ơn
  15
k ddc

Đăng nhập để hỏi chi tiết avatar

canhtoanle
Chưa có nhóm

Trả lời
1254
Điểm
14273
Cảm ơn
1155

canhtoanle

14/02/2020

var st,kq:string;vt,dai,min,d,i:integer;beginwrite('Nhap xau:'); readln(st);min:=0;st:=st+' ';while length(st)<>0 dobeginvt:=pos(' ',st);dai:=vt-1;if min<dai then

beginmin:=dai;kq:=copy(st,1,vt-1);d:=d+1;end;delete(st,1,vt);end; d:=0;write('Tu dai nhat trong xau la: ',kq);readln;

end.

Hãy giúp mọi người biết câu trả lời này thế nào?

starstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstar4starstarstarstarstar1 voteGửiHủy