测试结果1: 测试结果正确

测试结果2: 测试结果正确

测试结果3: 测试结果正确

测试结果4: 测试结果正确

测试结果5: 测试结果错误.错误结果为:0:4

正确结果应为:1:1

提交代码： Program P；

Var

s1, s2 : String；

t, ut : Dword；

l1, l2 : Byte；

////////////////////////////////

Procedure Init；

Var

ch : Char；

Begin

l1 := 0；

Read(ch)；

While ch <> Do

Begin

Inc(l1)；

s1[l1] := ch；

Read(ch)

End；

Read(s2)

End；

////////////////////////////////

Procedure Work；

Var

i, j : Byte；

Begin

l2 := Length(s2)；

t := 0；

ut := 0；

For i:=1 To l1 Do

For j := 1 To l2 Do

If (s1[i] >= a) And (s1[j] >= a)

Then

Inc(ut)

Else

Inc(t)

End；

////////////////////////////////

Procedure Outit；

Begin

Write(t, :, ut)

End；

////////////////////////////////

Begin

Init；

Work；

Outit

End.

在显性基因和隐性基因中，只要有显性基因存在，性状就显显性，只有两个隐性基因同时存在时，才不显性状！

var m:string[5]； ch:array[1..4] of boolean；i,j:integer；n:integer；

begin

readln(m)；n:=0；

if ord(m[1])<=90 then ch[1]:=true else ch[1]:=false；

if ord(m[2])<=90 then ch[2]:=true else ch[2]:=false；

if ord(m[4])<=90 then ch[3]:=true else ch[3]:=false；

if ord(m[5])<=90 then ch[4]:=true else ch[4]:=false；

for i:=1 to 2 do

for j:=3 to 4 do

if ch[i] or ch[j] then inc(n)；

case n of

0:writeln(0:4)；

1:writeln(1:3)；

2:writeln(1:1)；

3:writeln(3:1)；

4:writeln(4:0)；

end；

end.