bài của bạn đây =>
NGUỒN : HTTP://PASCALVN.COM
PHP Code:
program cong_mang;
var a,b,c:array***91;0..1000***93; of shortint;
max,n,m:integer;
procedure nhap;
var i:integer;
begin
write('nhap m,n=');readln(m,n);
fillchar(a,sizeof(a),0);
fillchar(b,sizeof(b),0);c:=b;
for i:=1 to m do
begin
write('a***91;',i,'***93;=');readln(a***91;i***93;);
end;
for i:=1 to n do
begin
write('c***91;',i,'***93;=');readln(c***91;i***93;);
end;
end;
procedure xuli;
var sodu,nho,tong,i:integer;
begin
if m>n then max:=m else max:=n;
if m>n then for i:=max downto (m-n+1) do b***91;i***93;:=c***91;i-m+n***93; else
for i:=max downto (n-m+1) do b***91;i***93;:=c***91;i-n+m***93;;
nho:=0;
for i:=max downto 1 do
begin
tong:=a***91;i***93;+b***91;i***93;+nho;
sodu:=tong mod 10;
nho:=tong div 10;
c***91;i***93;:=sodu;
end;
c***91;0***93;:=nho;
end;
procedure xuat;
var i:integer;
begin
if c***91;0***93;<>0 then for i:=0 to max do write(c***91;i***93;)
else for i:=1 to max do write(c***91;i***93;);
end;
begin
nhap;
xuli;
xuat;
readln;
end.
Bookmarks