查人人中国名人网怎么做课堂笔记:PASCAL源程序
来源：百度文库 编辑：查人人中国名人网 时间：2024/05/01 16:10:30
截数问题: 任意一个自然数，我们可以将其平均截取成三个自然数。例如自然数135768，可以截取成13,57,68三个自然数。如果某自然数不能平均截取(位数不能被3整除)，可将该自然数高位补零后截取。现编程从键盘上输入一个自然数N(N的位数<12)，计算截取后第一个数加第三个数减第二个数的结果。
program lkjieshu;
var
s,st:string;
i,j,a,b,c:longint;
code:integer;
begin
readln(s);
while length(s) mod 3<>0 do
insert('0',s,1);
i:=length(s) div 3;
st:=copy(s,1,i);
val(st,a,code);
delete(s,1,i);
st:=copy(s,1,i);
val(st,b,code);
delete(s,1,i);
val(s,c,code);
writeln(a+c-b);
end.
都是基本题啊,敢问你Pascal学得如何了,问这么多,