求初级pascal题目答案：输入正整数n（整型）,求n!除以2013的余数（n!=123….n）1.输入正整数n（整型）,求n!除以2013的余数（n!=123….n）2.某超市为了促销,规定：购物不足50元的按原价付款,

来源：学生作业学帮网编辑：学帮网时间：2024/05/17 21:42:43

求初级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）1.输入正整数n（整型）,求n!除以2013的余数（n!=1*2*3*….*n）2.某超市为了促销,规定：购物不足50元的按原价付款, Pascal二分法：输入一个正整数n（1 求Free Pascal程序问题如下：第一行输入一个正整数n（1 pascal编程：哥德巴赫猜想题目描述输入N(N pascal 输入n(1 pascal 输入n(1 pascal中如何求平均数输入n个正整数,求出这些数的平均数.第一行只有一个正整数：n (1 pascal 入正整数n（n pascal语言:输入一个正整数n,输出n以内所以素数要用“枚举法”做输入一个正整数n,将n分解成质因数幂的乘积形式.编程turbo pascal... C程序求偶数和题目描述请算一算,输入的偶数之和是多少. 输入首先输入一个正整数N,代表将要输入N个正整数.然后依次输入这N个数.输出只输出一行,为输入的数中偶数的和.输出答案后记得要高精度阶乘（pascal）【题目】数学上定义: n!=1×2×3×...×(n-1)×n (N>0) 0!=1 若用integer型数据表示阶乘,最多可到7!,用Longint类型也只能到12! 要求输入正整数n,求 n! 的精确表示求助一道pascal高精度乘法题：输入两个正整数m、n,输出他们的积.( 1 pascal输入一个n位的正整数,输出由这n个数字组成的最大正整数. Pascal 输入M和N两个正整数,求它们的最小公倍数和最小公约数要用while做 Pascal 输入M和N两个正整数,求它们的最小公倍数和最小公约数要用while做最好后面能附上思路 9点之前要的啊一定要正 pascal 有n个正整数,n pascal程序设计输入一个整数n,n pascal数字金字塔急死了!Description 输入正整数n,输出n层数字金字塔.Input 只有一行且只有一个正整数：n (1