给出一个整数n,其中n小于等于10000请求出1~n中,是2的倍数,或者是3的倍数,或者是5的倍数的数的总和用pascal做
来源:学生作业帮助网 编辑:作业帮 时间:2024/06/27 22:31:29
![给出一个整数n,其中n小于等于10000请求出1~n中,是2的倍数,或者是3的倍数,或者是5的倍数的数的总和用pascal做](/uploads/image/z/6841335-39-5.jpg?t=%E7%BB%99%E5%87%BA%E4%B8%80%E4%B8%AA%E6%95%B4%E6%95%B0n%2C%E5%85%B6%E4%B8%ADn%E5%B0%8F%E4%BA%8E%E7%AD%89%E4%BA%8E10000%E8%AF%B7%E6%B1%82%E5%87%BA1%7En%E4%B8%AD%2C%E6%98%AF2%E7%9A%84%E5%80%8D%E6%95%B0%2C%E6%88%96%E8%80%85%E6%98%AF3%E7%9A%84%E5%80%8D%E6%95%B0%2C%E6%88%96%E8%80%85%E6%98%AF5%E7%9A%84%E5%80%8D%E6%95%B0%E7%9A%84%E6%95%B0%E7%9A%84%E6%80%BB%E5%92%8C%E7%94%A8pascal%E5%81%9A)
给出一个整数n,其中n小于等于10000请求出1~n中,是2的倍数,或者是3的倍数,或者是5的倍数的数的总和用pascal做
给出一个整数n,其中n小于等于10000请求出1~n中,是2的倍数,或者是3的倍数,或者是5的倍数的数的总和
用pascal做
给出一个整数n,其中n小于等于10000请求出1~n中,是2的倍数,或者是3的倍数,或者是5的倍数的数的总和用pascal做
var i,n,j,k:longint;
begin
j:=0;
readln(n);
for i:=1 to n do begin
read(k);
if (k mod 2=0) or (k mod 3=0) or (k mod 5=0) then j:=j+k;
end;
writeln(j);
end.
给出一个整数n,其中n小于等于100000,请统计n的因数的个数
求一pascal程序,给出一个整数n,其中n小于等于10000,请统计n的因数的个数.
给出一个整数n,其中n小于等于1000.请求出1~n中所有的素数的个数求一pascal程序
给出一个整数n,其中n小于等于1000.请求出1~n中所有的素数的个数free pascal 回答,
给出一个整数n,其中n小于等于10000请求出1~n中,是2的倍数,或者是3的倍数,或者是5的倍数的数的总和用pascal做
pascal给出一个整数n,其中n小于等于maxlongint请求出1~n中,是2的倍数,或者是3的倍数,或者是5的倍数,算出总和,答案有可能超出longint
1.科学计数法是把一个非零的数记成±a×10的n次方,其中n是整数,a是()的数,当一个数的绝对值大于1时,n是()整数,且n等于原数的();当一个数的绝对值小于1时,n是()整数,且n等于原数的
产生数pascal程序给出一个整数n(n
你能将0.001768表示成a乘10的n次方的形式吗?(其中1小于等于a小于等于1,n为负整数)
你能将0.001768表示成a乘10的n次方的形式吗?(其中1小于等于a小于10,n为负整数)
求一个最大整数n,使(1^2+2^2+...+n^2)/n为一个完全平方数.n小于等于400
绝对值x小于n则整数x等于几?
证明:[x]+[x+1/n]+[x+2/n]+,+[x+n-1/n]=[nx]其中,n为正整数,x为任意有理数,大于等于1,小于n.[x]表示为x的整数部分.
一道ACM 数字统计 描述:给出一个整数n(1
给出整数n,接下来有n行,每行一个整数,求最小值 用pascal做
给出一个正整数N(N
给出一个正整数N(N
整数前n位 被n平方整除输入一个整数n(0能给出代码吗