讨论 / 给个生物学标程
chinshiketsu 2010-07-09 19:28:00
点我顶贴 收藏 删除
完全体现自由组合定律

var ss:string;

fa,ma:string;

i,j,sumh,sums:integer;

begin

readln(ss);

fa:=copy(ss,1,2);

ma:=copy(ss,4,2);

for i:=1 to 2 do

for j:=1 to 2 do

if (ord(fa[i])>=97)and(ord(ma[j])>=97) then inc(sums) else inc(sumh);

if (sumh=2)and(sums=2) then begin sumh:=1;sums:=1;end;

writeln(sumh,':',sums);

readln;readln;

end.

查看更多回复
提交回复