作业帮求解PASCAL题输入两个正整数a,b.b最大不超过三位数,a不大于31.使a在左,b在右,拼接成一个新的数c.例如：a＝2,b＝16,则c＝216；若a＝18,b＝476,则c＝18476.提示：求c的公式为：c＝a×K＋b
来源：学生作业帮助网 编辑：作业帮 时间：2024/05/04 21:34:22
求解PASCAL题输入两个正整数a,b.b最大不超过三位数,a不大于31.使a在左,b在右,拼接成一个新的数c.例如：a＝2,b＝16,则c＝216；若a＝18,b＝476,则c＝18476.提示：求c的公式为：c＝a×K＋b
求解PASCAL题
输入两个正整数a,b.b最大不超过三位数,a不大于31.使a在左,b在右,拼接成一个新的数c.例如：a＝2,b＝16,则c＝216；若a＝18,b＝476,则c＝18476.
提示：求c的公式为：
c＝a×K＋b
求解PASCAL题输入两个正整数a,b.b最大不超过三位数,a不大于31.使a在左,b在右,拼接成一个新的数c.例如：a＝2,b＝16,则c＝216；若a＝18,b＝476,则c＝18476.提示：求c的公式为：c＝a×K＋b
var a,b,k:longint;
begin
read(a,b);
if b>=100 then k:=1000 else
if b>=10 then k:=100 else
k:=10;
writeln('c=',a*k+b);
end.
比较短…………
上面的答案不符和你的题意,它没有将a,b的范围限定．而且还没有计算正确．（一检验就知道问题了！）
program zuhe;
var a,b,c,k:integer;
begin
writeln('input a,b');
readln(a,b);
while(b<=0)or(b>=1000)or(a<=0)or(a>=31)do
全部展开
上面的答案不符和你的题意,它没有将a,b的范围限定．而且还没有计算正确．（一检验就知道问题了！）
program zuhe;
var a,b,c,k:integer;
begin
writeln('input a,b');
readln(a,b);
while(b<=0)or(b>=1000)or(a<=0)or(a>=31)do
begin
writeln('that's not right for the question');
writeln('input a,b again');
readln(a,b);
end; //输入，限制a,b
k:=a div 10;
c:=a*k+b; //计算，组合，用 字符可以更简单，但是你说数字还 是用数字好了
write('c:=',c);
end.
收起
program l1;
var a,b,c:integer;
begin
writeln('input a,b'):
readln(a,b);
c:=a*10+b;
writeln('c:=',c);
readln;
end.
很简单的......