pascal题:求N个数的和,给出一个正整数N,可求出从1开始的这N个数的全部各个数位上的数字之和.输入:N=12..输出:S=51 提示:这12个数是:1,2,3,4,5,6,7,8,9,10,11,12s=1+2+3+4+5+6+7+8+9+1+0+1+1+1+2=51输入:12

来源:学生作业帮助网 编辑:六六作业网 时间:2024/12/25 14:08:49
pascal题:求N个数的和,给出一个正整数N,可求出从1开始的这N个数的全部各个数位上的数字之和.输入:N=12..输出:S=51提示:这12个数是:1,2,3,4,5,6,7,8,9,10,11,

pascal题:求N个数的和,给出一个正整数N,可求出从1开始的这N个数的全部各个数位上的数字之和.输入:N=12..输出:S=51 提示:这12个数是:1,2,3,4,5,6,7,8,9,10,11,12s=1+2+3+4+5+6+7+8+9+1+0+1+1+1+2=51输入:12
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

pascal题:求N个数的和,给出一个正整数N,可求出从1开始的这N个数的全部各个数位上的数字之和.输入:N=12..输出:S=51 提示:这12个数是:1,2,3,4,5,6,7,8,9,10,11,12s=1+2+3+4+5+6+7+8+9+1+0+1+1+1+2=51输入:12
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.

求一pascal程序,给出一个整数n,其中n小于等于10000,请统计n的因数的个数. 分解因式pascal一个自然数N的正因子个数记为F(N),例如18的所有正因子为1、2、3、6、9、18,所以F(18)=6.现在给出K,求所有满足F(N)=K的N中最小的数.要求pascal语言完成.Input 第一行n,表示有n个数据,1我 1025:【入门】求n个数的最大值和最小值 pascal 给出一个整数n,其中n小于等于1000.请求出1~n中所有的素数的个数求一pascal程序 给出数列:4,7,10,13,16,19,22,25...,再给出一个整数n,让你求出列前n项的和,用pascal解 给出一个等差数列的第一项a,公差d和项数n,求这个等差数列前n项的和 用pascal做 pascal题:求N个数的和,给出一个正整数N,可求出从1开始的这N个数的全部各个数位上的数字之和.输入:N=12..输出:S=51 提示:这12个数是:1,2,3,4,5,6,7,8,9,10,11,12s=1+2+3+4+5+6+7+8+9+1+0+1+1+1+2=51输入:12 用pascal 输入N个数,计算偶数、奇数和零的个数如题 给出一个整数n,其中n小于等于1000.请求出1~n中所有的素数的个数free pascal 回答, pascal语言编程问题(free pascal求1—N中的素数的个数.(1 输入一个整数n,求它各位上的数字和 pascal同题··n pascal 给出一个序列 求出数列中相同数字出现的 次数最多的数字和其出现次数 (n 给出整数n,接下来有n行,每行一个整数,求最小值 用pascal做 pascal编程给出一个n,求前n个奇数的总和 输入 一行,一个整数n 输出 一行,表示总和 给出一个n,接下来有n行,每行一个整数,你要计算这n个整数的和 用pascal做 给出一个n,接下来有n行,每行一个整数,你要计算这n个整数的和 用pascal做 产生数pascal程序给出一个整数n(n 给出一个数列,要求:找出一个连续的数列,它们的和最大,Pascal语言实现.注意!数列最多可能有1000000000(10亿)个数,说明只能用O(n)的时间复杂度.是计算机的Pascal编程语言