作业帮 > 综合 > 作业

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

来源：学生作业帮 编辑：拍题作业网作业帮 分类：综合作业 时间：2024/04/26 09:27:55
计算下列式子的值：1+3+5+……+97+99 2、 一个两位数x,将它的个位数字与十位数字对调后得到一个新数
用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的最大公约数
这些题目都太垃圾了,我就不想写出标准的程序过程了.以下是主程序的代码：
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);
纯手打,望及时采纳!
计算下列式子的值：1+3+5+……+97+99 2、 一个两位数x,将它的个位数字与十位数字对调后得到一个新数 一个两位数,它的十位数字是x,个位数字是y.若把十位数字与个位数字对调,就得到一个新的两位数,请计算新数与原数的和与差, 一个两位数,十位数字为x,个位数字比十位字少1,把十位与个位数字对调后是一个新的两位数用代数式表示 一个两位数,十位数字为x,个位数字比十位数字多1,把十位数字与个位数字对调后得到一个新的两位数用代数式表示是几? 一个两位数,个位上的数字比十位数字的3倍还多1,若将它的个位数字与十位数字对调,所的数比原数大45, 一个两位数他的十位数字是x个位数字是y若把它的十位数字与各位数字对调。将得到一个新的两位数，计算新书与原数的和与差，病情 一个两位数的个位数字是y 十位数字是x 若把十位数字与个位数字对调,就得到一个新的两位数 有一个两位数,十位上数字是个位数字的1/2,若将十位上数字与个位上数字对调,则得到的新的两 12、一个两位数,个位数字是十位数字的4倍,如果把个位数字与十位数字对调,那么得到的新数比原数大54,求 一个两位数,个位数字与十位数字之和为8,将个位数字与十位数字对调后,所得的新数比原来的数大54. 有一个两位数,个位数数字比十位数字大5,把这个两位数的个位数与十位数对调后,新两位数与原两位数之和为9 一个两位数的个位上与十位上的数字对调后,得到一个新的两位数《十位数与个位数不同》再与原数相加,