99问答网
所有问题
pascal高精度拆分整数 【问题描述】 输入一个正整数N(不超过一百位),如果N是偶数,则拆分N的各个数字相
如题所述
举报该问题
推荐答案 2011-03-17
输入一个正整数N(不超过一百位),如果N是偶数,则拆分N的各个数字相加求和;如果N是奇数,则拆分N的各个数字相乘求积。(如果是偶数则在输出时应加上“H=”,奇数则在输出时应加上“J=”)
温馨提示:答案为网友推荐,仅供参考
当前网址:
http://99.wendadaohang.com/zd/vzzeWOOzB.html
其他回答
第1个回答 2011-03-07
readln(n);
writeln(trunc(n));
writeln(n-trunc(n));
end.
第2个回答 2011-03-06
readln(n);
writeln(trunc(n));
writeln(n-trunc(n));
end.
第3个回答 2011-03-06
请重新发一下问题,看不明白
相似回答
问几个关于free
pascal
的题目,急急急!(完成几道是几道)
答:
这是一个关于Free
Pascal
编程的题目集合,旨在考验编程者对循环、条件判断以及数学运算的掌握。第一个题目涉及到了一个经典的数学问题:给定
一个正整数n,
将n按规则变换直到变为1,记录变换次数。程序中的变量a用于记录变换次数,n为输入的初始值。
如果n
为奇数,则n变为3n+1;如果n为
偶数,
则n变为n...
noip2006
pascal
普及组第四题数列,我获取到
一个
人编写的程序,且经测...
答:
n=4时(换成2进制为
100),
他的值等于2进制的1*3的2次方+0*3的1此方+0*3的0次方 如此类推 所以这道题的解题思路是:把n转换成2进制数,然后把各个2进制数位上的数*3对应的(n-1)次方的积进行累加。循环中的r=n mod 2 n=n div 2 这两句就数2进制转换 而x=x*k就是3的(n-1...
pascal输入一个整数N(
1<=N<=10000000
),
把它的各位数字倒序输出。N末 ...
答:
输入一个正整数n
,可以假设n在int范围内 输出将n按其逆序输出,每个数字后有一个空格,输出占一行。/ include<stdio.h> int main(){int i;int n;scanf("%d",&n);int num = 0;for(i = 0; ; i ++){num = n % 10;n /= 10;printf("%d\n",num);if( n < 1)break;]return 0...
求第十二届全国青少年奥林匹克信息学联赛(普及组
PASCAL
语言)复赛...
答:
1.明明的随机数 (random.pas/c/cpp)
【问题描述】
明明想在学校中请一些同学一起做一项问卷调查,为了实验的客观性,他先用计算机生成了
N个
1到1000之间的随机
整数(
N≤
100),
对于其中重复的数字,只保留
一个,
把其余相同的数去掉,不同的数对应着不同的学生的学号。然后再把这些数从小到大排序,...
正整数拆分问题
将
一个
给定的
正整数n拆分
成若干个在a到b之间的正整数之...
答:
void shu(long n,long a,long b){ for(int s=0 ;a+s<=b&&n;++s){ if(!(n-a-s)){ ++i;continue;} else if(n-a-s<0)continue;else if(n-a-s>0)shu(n-a-s,a,b);} } void mai
n()
{ long n,a,b;while(cin >> n>>a>>b){ i=0;shu(n,a,b);cout<<i<<end...
编写程序:
输入
提
一个正整数,
判断该数是奇数还是
偶数,
并输出结果
答:
;end.Dim A As Integer Input A If A Mod 2 = 0 Then Print "偶数"Else Print "奇数"End If 以上分别是C、
Pascal
和Basic的程序 void mai
n()
{ int a;scanf("%d",&a);if (a%2==0){ printf("偶数");} else { printf("奇数");} } program JO;var a:integer;begin read(a);...
Pascal
因式分解 将大于
1
的
自然数N
进行分解,满足N=A1*A2*……Am,求N...
答:
首先对
自然数N
做质因数分解(分解成若干个质数的乘积)设N的质因数分解为N=p1^q1 * p2^q2 * p3 ^q3 ...*pm ^ qm(比如当N=12时,N=2^2 * 3^1)这样做之后,对N的分解就等价于将对质因子分组。问题变成了:有m种物品,第i种物品有qi种,求将他们分成若干组的方案数。设f[i][j]表示...
...要求对这
n
个数中的奇数和
偶数
分别求和.求
pascal
程序
答:
var n,x,i,s1,s2:longint;begin s1:=0; s2:=0;for i:=1 to n do begin read(x);if odd(x) then inc(s1,x) else inc(s2,x);end;writeln('Ji Shu He=',s1);writeln('Ou Shu He=',s2);end.
pascal
编程位数
问题
:在所有的
N
位数中,有多少个数中有
偶数
个数字3?由于...
答:
首先,去掉mod12345,这是一个数学公式。假设1位数,那么8个数是0个3,这样在2位数中,十位有9个没有3,8*9个数依然没有3;而如果十位(新加位)出现3,那么偶数个3必然是之前奇数个3,那么之前奇数个3就是
1个(
数字3)。这个公式就是类推的公式,这里几句话说不很清楚。其次,说mod 。这里...
大家正在搜
一个整数如何拆分为两个8位
一个整数拆分为两个8位数
java 整数拆分成几个数的和
整数拆分问题
求解整数拆分问题
10能拆分成几个非零整数的和
整数拆分的完整公式
整数拆分问题四种解法
100的整数拆分有多少种