viết chương trình in ra từ dài nhất và ngắn nhất trong xâu pascal
1 câu trả lời
program bai_giai;
uses crt;
var s,sd,sn,st:string;
begin
clrscr;
readln(s);
sd:=''; sn:=s;
s:=s+' ';
while pos(#32,s)<>0 do
begin
st:=copy(s,1,pos(#32,s)-1);
if length(st)>length(sd) then sd:=st;
if length(st)<length(sn) then sn:=st;
delete(s,1,pos(#32,s))
end;
write(sd,' ',sn);
readln;
end.
Câu hỏi trong lớp
Xem thêm
