Pascal
Modified: Wednesday, 22-12-2021 07:00 AM
Đếm số từ dài nhất trong xâu
Show các từ dài nhất và chiều dài của chúng
<Demo>
var st, kq: string;
vt, dai, max, d, i,j: integer;
a:array[1..100] of string;
begin
write('Nhap St:');
readln(st);
max := 0;
st := st + ' ';
d:=0;
while length(st) <> 0 do
begin
vt := pos(' ', st);
dai := vt - 1;
kq := copy(st, 1, dai);
inc(d);
a[d]:=kq;
delete(st, 1, vt);
end;
for i:=1 to d do
if length(a[i])>max then
begin
max:=length(a[i]);
j:=1;
end
else if length(a[i])=max then inc(j);
writeln('Co ',j,' tu dai nhat, co chieu dai la: ',max);
writeln('cac tu do la:');
for i:=1 to d do
if length(a[i])=max then writeln(a[i]);
readln;
end.