计算下列式子的值：1+3+5+……+97+99 2、 一个两位数x，将它的个位数字与十位数字对调后得到一个新数

Question

用pascal语言
1、 计算下列式子的值：1+3+5+……+97+99
2、 一个两位数x，将它的个位数字与十位数字对调后得到一个新数y，此时y恰好比x大36，请编程求出所有这样的两位数。
3、 从键盘输入一个整数X（X不超过10000），若X的各位数字之和为7的倍数，则打印“Yes”，否则打印“No”。
4、 猜价格：中央电视台的“幸运52”栏目深受观众喜爱，其中的“猜商品价格”的节目更是脍炙人口，现在请你编一个程序模拟这一游戏：由计算机随机产生200至5000之间的一个整数，作为某件商品的价格，然后由你去猜是多少，若你猜的数大了，则计算机输出提示“Gao”，若你猜的数小了，则计算机输出提示“Di”，然后你根据提示继续猜，直到你猜对了，计算机会提示“Ok”，并统计你猜的总次数。
提示：随机产生200至5000之间的一个整数，用下列语句实现：
Randomize;
X := Random(4800)+200;
5、 输入任一的自然数A, B, 求A , B的最小公倍数。
6、 求自然数A, B的最大公约数

Answer 1

这些题目都太垃圾了，我就不想写出标准的程序过程了。以下是主程序的代码：
1.for i:=1 to 50 do inc(ans,2*i-1); writeln(ans);
2.for i:=1 to 9 do for j:=0 to 9 do if (10*j+i)-(10*i+j)=36 then writeln(10*i+j);
3.readln(s); for i:=1 to length(s) do inc(ans,s[i]); if ans mod 7=0 then writeln('Yes') else writeln('No');
4.Randomize; num:=Random(4800)+200; repeat readln(x); if x>num then writeln('Gao') else writeln('Di'); if x=num then writeln('Ok'); until x=num;
5.readln(a,b); x:=a; while not ((x mod a=0) and (x mod b=0)) do inc(x); writeln(x);
6.readln(a,b); x:=a; while not ((a mod x=0) and (b mod x=0)) do dec(x); writeln(x);
纯手打，望及时采纳！

Answer 2

5050 18追问

这是什么东西