一道pascal的题用PASCAL算开始,把2赋值给a,把4赋值给b,然后判断,(a+b)>=5,如果yes,c=1/(a+2b),如果no,c=1/(b+2a),输出C.结束

Question

一道pascal的题
用PASCAL算
开始,把2赋值给a,把4赋值给b,然后判断,(a+b)>=5,如果yes,c=1/(a+2b),如果no,c=1/(b+2a),输出C.结束

Answer 1

var a,b:longint;c:real; {定义变量a,b整形 c实型}
begin
a:=2;b:=4;{a,b赋值}
if a+b>5 then c:=1/(a+2*b) {判断真执行}
else c:=1/(b+2*a); {判断假执行}
writeln(c); {输出C值}
end.
调试通过