三十四课:长达二十位的“整数”相加
发表时间:2002-12-30 00:00:00 关键词:奥赛,PASCAL,编程,源码
(点击:) 把这篇文章告诉我的QQ或MSN朋友
program str(input,output);
var
str1,str2,str3:packed array[1..20] of char;
i,he,jinwei:integer;
begin
for i:=1 to 20 do read(str1[i]);
for i:=1 to 20 do read(str2[i]);
for i:=20 downto 1 do
begin
he:=ord(str1[i])-48+ord(str2[i])-48+jinwei;
if he>9 then
begin
jinwei:=1;
str3[i]:=chr(he-10+48);
end
else
begin
jinwei:=0;
str3[i]:=chr(he+48);
end;
end;
writeln(str3);
end.
本站特约顾问律师常州东晟律师事务所朱立律师(电话13915029670,QQ646146109)提醒您:
本站文章皆为作者原创,其它媒体(包括但不限于报刊、杂志、网站、电视、电台)未经作者书面许可严禁转载(或部分摘录)!
本站文章皆为作者原创,其它媒体(包括但不限于报刊、杂志、网站、电视、电台)未经作者书面许可严禁转载(或部分摘录)!
