Pascal:输入一个三位数的整数,将数字位置重行排列,组成一个尽可大的三位数.
来源:学生作业帮助网 编辑:作业帮 时间:2024/10/05 03:20:28
vara,b,c,s:integer;beginfors:=100to999dobegina:=smod100;//这三个最开始操作数应该是s,您卖萌了………………b:=sdiv10mod10;c:=
varn:longint;beginreadln(n);ifnmod7=0thenwriteln('yes'){除以7取余,是否等于0,等于则输出yes,否则输出no}elsewriteln('no'
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;//当前
programyueshuhe;varn,i,s:longint;beginwriteln('inputn:');readln(n);s:=1;fori:=2tondobeginifnmodi=0th
只能告诉你算法,pascla不会定义一个变量sum,记录约数之和得到自然数a,定义变量i从1遍历到a,只要a/i==0,sum=sum+i,最后输出sum就是了
#includevoidmain(){inta;printf("请输入一个三位数:");scanf("%d",&a);printf("各位数上的乘积为:%d\n",(a/100)*(a%10)*(a/
varn,s:longint;beginread(n);s:=0;whilen0dobegins:=s+nmod10;n:=ndiv10;end;writeln(s);end.自创!
审题错了吧,求所有素因子意思就像因子分解。比如18=2×3×3你找素因子用的i那个for循环吧,按你的求法,一个因子只能在式子中出现一次。下一次循环i的值就增加了嘛。你可以按照这个思路来:输入k,wh
Inputsthreefigures.Inputtrianglethreelengthsofside该是这样说的
第四个if那行末尾是)而不是>在错误信息那里有提示错误发生在(14,2)即第14行第2位,在附近(不一定一定在那里)找找就能发现
不知你要用什么语言写程序,但过程序可以如下:设输入的整数用X表示1.计算a=X/100,然后使a=不超过X/100的最大整数2.计算b=(X-a*100)/10,然后使b=不超过(X-a*100)/1
vara,b,c,d,e,f,g,h,i,j,k,l:longint;beginreadln(a);b:=adiv100;c:=(amod100)div10;d:=(amod100)mod10;if(
programj;vara,b,c,m,n:integer;beginreadln(m);a:=mdiv100;b:=(mdiv10)mod10;c:=mmod10;n:=c*100+b*10+a;w
varn:longint;beginreadln(n);writeln(abs(n));{绝对值}writeln(sqr(n));{平方}writeln(sqrt(n));{平方根}writeln(p
vara,b,k:longint;beginread(a,b);ifb>=100thenk:=1000elseifb>=10thenk:=100elsek:=10;writeln('c=',a*k+b
varc1,c2,c3:char;a,b,c:0..9;functionv(c:char):0..9;vari:integer;beginval(c,v,i);end;procedurep(a,b,c
vars,n,a:longint;begins:=0;whilea0dobeginn:=amod10;s:=s+n;a:=adiv10;end;writeln(s);end.
数字操作:varn,s:integer;beginreadln(n);s:=0;whilen>0dobegins:=s+nmod10;n:=ndiv10;end;writeln(s);end.字符串操