则称之为“五角星数”。如:54748=55+45+75+45+85,所以54748是一个五角星数。请找出所有的五角星数并计算它们的总和。(一个数的5次方=该数自乘5次。如:75=7*7*7*7*7【程序清单】varv:integer;i,j,t,w,s:longint;beginfori:=10000to99999dobegint:=0;j:=I;forv:=1to5dobeginw:=jmod10;j:=jdiv10;t:=t+w*w*w*w*w;end;ift=ithenbegins:=s+i;writeln(i)end;end;writeln(’Sum=’,s)end.2、猜数游戏电脑随机产生4个不同的数字(不显示),让你们猜:你由键盘输入4个数字后,电脑就显示两个整数S1和S2,其中S1表示几个数字的位置被猜对,S2表示你猜对了几个数字。例如:电脑依次产生:0168,如果你输入:2068,则S1=2,S2=3.电脑让你反复的猜,直到你完全猜对这一组数字为止。最后输出你猜的总次数。【程序清单】varok:array[0..9]ofboolean;a:array[1..4]ofinteger;b,i,t,s1,s2:integer;beginrandomize;fori:=1to4dobeginrepeata[i]:=random(10);untilnotok[a[i]];ok[a[i]]:=true;end;repeatwriteln(’PleaseGuess:’);t:=t+1;s1:=0;s2:=0;fori:=1to4dobeginread(b);ifb=a[i]thens1:=s1+1;ifok[b]thens2:=s2+1;end;readln;writeln(s1,s2:10);untils1=4;writeln(’Good!Total=’,t);end.
全文预览
