free pascal高精度加法计算,求高手看看程序!追加悬赏50!var s,s1,s2:string; a,b,c:array [1..260] of integer; i,l,k1,k2:integer; begin write('input s1:');readln(s1); write('input s2:');readln(s2); l:=length(s1); k
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/08 19:30:21
![free pascal高精度加法计算,求高手看看程序!追加悬赏50!var s,s1,s2:string; a,b,c:array [1..260] of integer; i,l,k1,k2:integer; begin write('input s1:');readln(s1); write('input s2:');readln(s2); l:=length(s1); k](/uploads/image/z/6844756-4-6.jpg?t=free+pascal%E9%AB%98%E7%B2%BE%E5%BA%A6%E5%8A%A0%E6%B3%95%E8%AE%A1%E7%AE%97%2C%E6%B1%82%E9%AB%98%E6%89%8B%E7%9C%8B%E7%9C%8B%E7%A8%8B%E5%BA%8F%21%E8%BF%BD%E5%8A%A0%E6%82%AC%E8%B5%8F50%21var+++++s%2Cs1%2Cs2%3Astring%3B+++++a%2Cb%2Cc%3Aarray+%5B1..260%5D+of+integer%3B+++++i%2Cl%2Ck1%2Ck2%3Ainteger%3B+begin+++write%28%27input+s1%3A%27%29%3Breadln%28s1%29%3B+++write%28%27input+s2%3A%27%29%3Breadln%28s2%29%3B+++++l%3A%3Dlength%28s1%29%3B+++++k)
xW[sF+&HmV\^AшFcKj;
M&11.gW$t:iwX9ߞVDIMPV%tz>϶Nwe@쳷OVn*5>z,j\0sk:acbp"DMgP(3d5/MI ^p')YMKwnj