用Pascal语言输入一个自然数,判断这个自然数是不是素数.
来源:学生作业帮助网 编辑:作业帮 时间:2024/06/13 09:00:50
前面写错了,不好意思
1.思路:用一个字符串数组储存输入的数据,并分别输出。程序:Vara:array[1..3]ofstring;i:integer;BeginFori:=1to3doReadln(a[i]);Fori:
问一下:对于数据的顺序有没有什么要求?ForExample:Input: 1234
varn:real;beginreadln(n);writeln('n的平方:',sqr(n):0:6);writeln('n的平方根:',sqrt(n):0:6);writeln('n的3次方根:'
var a:array[1..5,1..5] of integer; i,j,max,ij,x,y:integer;begi
varx,s:real;beginread(x);s:=0;ifx
这个其实可以用多种方法实现方法1:分离数字法varx,l,s:longint;beginread(x);whilex>0dobeginl:=xmod10;inc(s,l);x:=xdiv10;//当前
vari,x,a:integer;beginread(x);a:=0;fori:=1toxdobeginifxmodi=0thena:=a+i;end;write(a);end.
只能告诉你算法,pascla不会定义一个变量sum,记录约数之和得到自然数a,定义变量i从1遍历到a,只要a/i==0,sum=sum+i,最后输出sum就是了
审题错了吧,求所有素因子意思就像因子分解。比如18=2×3×3你找素因子用的i那个for循环吧,按你的求法,一个因子只能在式子中出现一次。下一次循环i的值就增加了嘛。你可以按照这个思路来:输入k,wh
programex01;vara:array[1..100000000]ofinteger;b,c:array[1..100]oflongint;i,n,m,x,y,j:longint;procedu
第四个if那行末尾是)而不是>在错误信息那里有提示错误发生在(14,2)即第14行第2位,在附近(不一定一定在那里)找找就能发现
vari,j,n:longint;z:boolean;beginreadln(n);writeln(2);fori:=3tondobeginz:=true;forj:=2toi-1doifimodj=
第一题varr,x,y:real;beginreadln(r);{读入半径}readln(x,y);{读入坐标}ifsqr(x)+sqr(y)=sqr(r)thenwriteln('yes'){这个是
vars,n,a:longint;begins:=0;whilea0dobeginn:=amod10;s:=s+n;a:=adiv10;end;writeln(s);end.
vara:array[1..4,1..4]ofinteger;n,i,j,s:integer;beginfori:=1to4doforj:=1to4doread(a[i,j]);s:=0;fori:=
这么多问题,不分过来谁答啊?而且没有分?!再问:谢谢指教,但。。。你给爹滚再答:我还就不滚了!!!!!!
数字操作:varn,s:integer;beginreadln(n);s:=0;whilen>0dobegins:=s+nmod10;n:=ndiv10;end;writeln(s);end.字符串操
∧是逻辑运算符且相当于and∨是逻辑运算符或相当于or「是逻辑运算符非相当于notA:(notaandb)or(canddora)=(falseandtrue)or(falseandfalseortr
满意请给分,谢!programex;typestudent=record//定义学生记录stuID:integer;//学号homework:boolean;//判断是否交作业end;varstu:a