作业帮 > 综合 > 作业

两道编程题目(Pascal语言)

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/14 02:09:09
两道编程题目(Pascal语言)
1、一个两位数x,将它的个位数字与十位数字对调后得到一个新数y,此时y恰好比x大36,请编程求出所有这样的两位数.
2、国际象棋中,假设在第一格放一粒米,第二格放两粒米,第三格放四粒米,第四格放八粒米,第五格放十六粒米,问在第十六格中能放多少厘米
第一题:
var
x,a,b,c:longint;
begin
for x:=10 to 99 do
begin
a:=x div 10;
b:=x mod 10;
if (b*10+a)=(x+36) then writeln(x);
end;
end.
第二题:
var
a,b,c:longint;
begin
a:=1;
for b:=2 to 16 do
a:=a*2;
write(a);
end.