program finda;
var
ch:char;
s,k:string;
l:integer;
flag:boolean;
begin
s:='';
flag:=false;
l:=0;
while ch'.' do
begin
read(ch);
if (ch='a') or (ch='A') then flag:=true;
if not((ch='.') or (ch=' ')) then s:=s+ch
else begin
if (length(s)>l) and flag then begin
l:=length(s);
k:=s;
end;
s:='';
flag:=false;
end;
end;
writeln(k);
readln;
readln;
end.
根據(jù)你的題目,happy 也應(yīng)當(dāng)輸出,可是看樣例,題目應(yīng)該改為：
找出其中 第一個 最長的含有字母‘a(chǎn)’的單詞.
思路：一個一個字母地讀,順便分離單詞,采取打擂臺的方式