fascal 2012-08-21 21:45:00
点我顶贴
收藏
删除
program OvO;
var
i,j,k:integer;
s:string;
a:array[1..4]of longint;
va:longint;
function f(i,a,b:longint):longint;
begin
case i of
1:exit(a+b);
2:exit(a-b);
3:exit(a*b);
4:exit(a div b);
end;
end;
begin
readln(s);
for i:=1 to 4 do
if s[2*i-1]='A' then a[i]:=1 else
if s[i*2-1]='J' then a[i]:=11 else
if s[i*2-1]='Q' then a[i]:=12 else
if s[i*2-1]='K' then a[i]:=13 else
a[i]:=ord(s[2*i-1])-48;
for i:=1 to 4 do
for j:=1 to 4 do
for k:=1 to 4 do
begin
va:=f(i,f(i,f(i,a[1],a[2]),a[3]),a[4]);
if va=24 then begin writeln('yes');halt;end;
end;
writeln('no');
end.