Em hãy viết chương trình cho biết số từ của đoạn dài nhất liên tiếp các từcó cùng độ dài của một đoạn văn bản cho trước.uses crt;var s:string; a:array[1..1000]of longint; i,t,n,max,j:longint;begin clrscr; write('s='); readln(s); n:=length(s); t:=1; For i:=1 to n do If(s[i]<>' ')or(i=1)then a[t]:=a[t]+1 else inc(t); for i:=1 to t do begin j:=i; while a[j]=a[i] do inc(j); If j-i>max then max:=j-i; end; ...
Đọc tiếp
Em hãy viết chương trình cho biết số từ của đoạn dài nhất liên tiếp các từ
có cùng độ dài của một đoạn văn bản cho trước.
uses crt;
var s:string; a:array[1..1000]of longint;
i,t,n,max,j:longint;
begin
clrscr;
write('s=');
readln(s);
n:=length(s);
t:=1;
For i:=1 to n do
If(s[i]<>' ')or(i=1)then
a[t]:=a[t]+1 else inc(t);
for i:=1 to t do
begin
j:=i;
while a[j]=a[i] do inc(j);
If j-i>max then max:=j-i;
end;
writeln(max);
readln
end.
đây là bài cô mk chữa mà mk chưa hiểu lắm giải nghĩa giúp mk với ạ
Tin mà bạn