Question

高中数学算法初步 BASIC语言

从键盘输入一个四位数，按如下规则加密后输出。加密规则：每位数字都加上7，然后用和除以10的余数取代该数字，再把第一位和第四位交换，第二位与第三位交换。请你设计算法程序框图，并写出程序语句。
程序框图就免了，写出程序语句就行了，记得BASIC语言
程序语句好像不难打吧，怎么没人打出来呢

Answer 1

INPUT "n=", n
a = n - INT(n / 10) * 10
b = (n - a) / 10 - INT((n - a) / 100) * 10
c = ((n - a) / 10 - b) / 10 - INT(n / 1000) * 10
d = INT(n / 1000)
a = a + 7 - INT((a + 7) / 10) * 10
b = b + 7 - INT((b + 7) / 10) * 10
c = c + 7 - INT((c + 7) / 10) * 10
d = d + 7 - INT((d + 7) / 10) * 10
SWAP a, d
SWAP b, c
m = a + 10 * b + 100 * c + 1000 * d
PRINT "m="; m
程序经调试运行正常。

Answer 2

INPUT x
a=x/1000
b=(x-a*1000)/100
c=(x-a*1000-b*100)/10
d=x-a*1000-b*100-c*10

e=(a+7) MOD 10
f=(b+7) MOD 10
g=(c+7) MOD 10
h=(d+7) MOD 10

z=h*1000+g*100+f*10+e

PRINT z
END