给出一个整数n,其中n小于等于10000请求出1~n中,是2的倍数,或者是3的倍数,或者是5的倍数的数的总和用pascal做

来源:学生作业帮助网 编辑:作业帮 时间:2024/05/06 07:48:08
给出一个整数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做

给出一个整数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能给出代码吗