set talk off
clear
n=0
for x=1000 to 9999
a=int(x/1000)
b=int((x-a*1000)/100)
c=int((x-a*1000-b*100)/10)
d=mod(x,10)
if a=d and b=c and mod(x,6)=0
n=n+1
endif
endfor
set talk on
return
猜你喜欢
- 1身少 这个字怎么读啊?怎样拼,左边一个 身 右边一个 少
- 2美和中2个字写出一个关于爱的一个词语,像娜样纯杰的爱恋一样.
- 3作文《我的英语老师》用英文怎么写
- 4I'm very happy that you are my family.这是宾语从句么?
- 5绿酸钾、绿化钾、碳粉、铁粉、绿化亚铁、硫酸亚铁、硝酸亚铁的化学式?
- 6英语小作文my good friend有翻译30词
- 7something must to be done和something must be done区别
- 8请以“日出”为内容,写一个比喻句和一个拟人句.
- 9形容“想”的词只一个字!
- 10小明骑摩托车,小红骑自行车分别从甲乙两地相向而行,4小时后相遇,小红从甲地到乙地需要12小时,小明从甲地