pascal题:求N个数的和,给出一个正整数N,可求出从1开始的这N个数的全部各个数位上的数字之和.
来源:学生作业帮 编辑:拍题作业网作业帮 分类:综合作业 时间:2024/05/15 21:25:03
pascal题:求N个数的和,给出一个正整数N,可求出从1开始的这N个数的全部各个数位上的数字之和.
输入:N=12..输出:S=51 提示:这12个数是:1,2,3,4,5,6,7,8,9,10,11,12
s=1+2+3+4+5+6+7+8+9+1+0+1+1+1+2=51
输入:12
输出:s=51
提示:1+2+3+4+5+6+7+8+9+1+0+1+1+1+2
输入:N=12..输出:S=51 提示:这12个数是:1,2,3,4,5,6,7,8,9,10,11,12
s=1+2+3+4+5+6+7+8+9+1+0+1+1+1+2=51
输入:12
输出:s=51
提示:1+2+3+4+5+6+7+8+9+1+0+1+1+1+2
var
s:string;
n,i,j,k,sum:longint;
begin
read(n);
for i:=1 to n do
begin
str(i,s);
for j:=1 to length(s) do
inc(sum,ord(s[j])-48)
end;
writeln(sum)
end.
s:string;
n,i,j,k,sum:longint;
begin
read(n);
for i:=1 to n do
begin
str(i,s);
for j:=1 to length(s) do
inc(sum,ord(s[j])-48)
end;
writeln(sum)
end.
pascal题:求N个数的和,给出一个正整数N,可求出从1开始的这N个数的全部各个数位上的数字之和.
求一pascal程序,给出一个整数n,其中n小于等于10000,请统计n的因数的个数.
求正整数列中前N个数的和
求n个数的最大值和最小值用Pascal
求n个数的最大值和最小值(pascal)
1025:【入门】求n个数的最大值和最小值 pascal
从1000至2005中任取n个数一定有两个数他们各个数位上的和相等n至少为几
给出一个整数n,其中n小于等于1000.请求出1~n中所有的素数的个数
求助pascal程序:从 n 个数中挑选出最大的数
99999各个数位上数字之和为45,从1到100000的全部整数的各个数位上的数字之和再相加结果是多少?
N为正整数,计算从1到N的所有整数中包含数字1的个数.
pascal输入一个n位的正整数,输出由这n个数字组成的最大正整数.