Question

Cho xâu chỉ gồm các chữ cái và dấu cách. Mỗi từ gồm các chữ cái viết liền nhau, hai từ cách nhau bởi ít nhất một dấu cách.

Yêu cầu: Tìm từ ngắn nhất và từ dài nhất trong xâu.

Dữ liệu vào: Đọc từ file CAU2.INP ghi xâu .

Kết quả: Ghi ra file CAU2.OUT lần lượt độ dài của từ ngắn nhất và độ dài của từ dài nhất cách nhau một dấu cách.

Theo tập tin pascal

Ví dụ:

CAU2.INP	CAU2.OUT
Tin hoc	2 2
Hoc sinh gioi	3 4

* Có 70% số test xâu có không quá 255 kí tự tương ứng 70% số điểm;

* Có 30% số test xâu có nhiều hơn 255 và không quá 1.000 kí tự tương ứng 30% số điểm .

Answer 1

Program hotrotinhoc;

const fi='cau2.inp';

fo='cau2.out';

var f: text;

s: ansistring;

i,n,d,max,min: integer;

a: array[1..1000] of string;

procedure ip;

begin

assign(f,fi);

reset(f);

read(f,s);

close(f);

end;

procedure out;

begin

assign(f,fo);

rewrite(f);

s:=s+' ';

while length(s)<>0 do

begin

inc(d);

min:=1001;

max:=0;

a[d]:=copy(s,1,pos(' ',s)-1);

delete(s,1, pos(' ',s));

end;

for i:=1 to d do

begin

if length(a[i])>max then max:=length(a[i]);

if length(a[i])<min then min:=length(a[i]);

end;

write(f,min,' ',max);

close(f);

end;

begin

ip;

out;

end.