UC知道偶数之和 pascal
来源：百度知道 编辑：UC知道 时间：2024/06/04 01:01:18
Description
输入入正整数m、n的值，输出区间【m,n】内所有偶数之和
Input
只有一行有二个正整数：m n
(1<=m<=n<=10^12)
Output
只有一行且只有一个正整数：区间[m,n]内所有的偶数之和
Sample Input
2 8
Sample Output
20
求Pascal程序
program asdf;
var
i,n,m:longint;
u,j,k:longint;
y:real;
a:string;
num:array[1..20000]of integer;
begin
readln(n,m);
u:=20000;
for i:=n to m do
if i mod 2=0 then
begin
str(i,a);
k:=length(a);
for j:=20000 downto 20000-length(a)+1 do
begin
num[j]:=num[j]+ord(a[k])-ord('0');
dec(k);
{num[j-1]:=num[j-1]+num[j] div 10;
num[j]:=num[j] mod 10;}
end;
for j:=20000 downto u do
begin
num[j-1]:=num[j-1]+num[j] div 10;
num[j]:=num[j] mod 10;