求初级pascal题目答案：输入正整数n（整型）,求n!除以2013的余数（n!=123….n）

来源：学生作业帮编辑：拍题作业网作业帮分类：综合作业时间：2024/04/27 22:51:52

求初级pascal题目答案：输入正整数n（整型）,求n!除以2013的余数（n!=1*2*3*….*n）
1.输入正整数n（整型）,求n!除以2013的余数（n!=1*2*3*….*n）
2.某超市为了促销,规定：购物不足50元的按原价付款,超过50不足100的按九折付款,超过100元的,超过部分按八折付款.编一程序完成超市的自动计费的工作

⒈首先要知道一个定理：
(a*b)mod n=((a mod n)*(b mod n))mod n.
这样就可以边乘变算,不论n多大都能不超时,否则还需要进行高精度运算
代码：
var n,i,m:longint;
begin
readln(n);
m:=1;
for i:=1 to n do
begin
m:=(m*(i mod 2013))mod 2013;//m的值即为i! mod 2013
if m=0 then break;//如果m已经是2013的倍数,那么可以直接退出循环,因为此时无论乘上哪一个数,m mod 2013仍然为0
end;
writeln(m);
end.
//--------------------------------------------------------------------------------------------------------------------
⒉代码：
var n,m:double;
begin
readln(n);
if n

求初级pascal题目答案：输入正整数n（整型）,求n!除以2013的余数（n!=1*2*3*….*n）对任意正整数n, 定义n!=1*2*3*4*……*n,求91!除以19^5所得的最小正余数输入一个正整数,输出该数的阶乘.求整数n的阶乘公式为：=1*2*…*n.（n!表示n的阶乘）编写程序,输入正整数N,计算它的阶乘N!(N!=N*(N-1)*…*3*2*1) 编写程序,输入正整数n,计算它的阶乘n!(n!=n×(n-1)×…×3×2×1). 1\n(n+3)+1\(n+3)(n+6)+1\(n+6)(n+9)=1\2 n+18 n为正整数,求n的值 n为不可以被5整除的整数（1）求n^2除以5的余数（2）求n^4除以5的余数高中必修三的题编写程序,输入正整数n,计算它的的阶乘n!（n!=n*（n-1）*.*3*2*1）用Java编程：输入一个正整数n,输出n!的值.其中n!=1*2*3*…*n. 输入一个正整数n,求1+1/2!+1/3!+……1/n!的值,要求定义并调用函数fact(n)计算n 已知A^N=2,(N为正整数)求（A^3N）^3-(A^2)^3N的值编写程序,输入正整数n,计数它的阶乘n!（n!=n×(n-1)×.×3×2×1).