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.