
AREA test,CODE,READONLY
ENTRY
Loop
MOV R2,#5
MOV R3,#4
MOV R4,#3
SUBS R2,R3,R4,LSR #2
Stop
B Stop
END
var a,b:integerc,d:real
begin
for a:=1 to 4 do
begin
c:=3000/(2+a)
writeln(a,c)
end
for b:=1 to 4 do
begin
d:=(3000+1000*b)/(2+b)
writeln(b,d)
end
readln
end.
欢迎分享,转载请注明来源:内存溢出
微信扫一扫
支付宝扫一扫
评论列表(0条)