求解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/07/08 13:49:13
![求解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](/uploads/image/z/14276324-20-4.jpg?t=%E6%B1%82%E8%A7%A3PASCAL%E9%A2%98%E8%BE%93%E5%85%A5%E4%B8%A4%E4%B8%AA%E6%AD%A3%E6%95%B4%E6%95%B0a%2Cb.b%E6%9C%80%E5%A4%A7%E4%B8%8D%E8%B6%85%E8%BF%87%E4%B8%89%E4%BD%8D%E6%95%B0%2Ca%E4%B8%8D%E5%A4%A7%E4%BA%8E31.%E4%BD%BFa%E5%9C%A8%E5%B7%A6%2Cb%E5%9C%A8%E5%8F%B3%2C%E6%8B%BC%E6%8E%A5%E6%88%90%E4%B8%80%E4%B8%AA%E6%96%B0%E7%9A%84%E6%95%B0c.%E4%BE%8B%E5%A6%82%EF%BC%9Aa%EF%BC%9D2%2Cb%EF%BC%9D16%2C%E5%88%99c%EF%BC%9D216%EF%BC%9B%E8%8B%A5a%EF%BC%9D18%2Cb%EF%BC%9D476%2C%E5%88%99c%EF%BC%9D18476.%E6%8F%90%E7%A4%BA%EF%BC%9A%E6%B1%82c%E7%9A%84%E5%85%AC%E5%BC%8F%E4%B8%BA%EF%BC%9Ac%EF%BC%9Da%C3%97K%EF%BC%8Bb)
求解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.
很简单的......