回 帖 发 新 帖 刷新版面

主题:HELP ME!!!

[font=楷体_GB2312]GB2312[/font][size=4]4[/size][color=00FFFF]OOFFFF[/color]
[em10]1、输入一个正整数n,将n分解成质因数幂的乘积形式。
     例如:36=22*32
[em18]2.有一堆100多个的零件,若三个三个数,剩二个;若五个五个数,剩三个;若七个七个数,剩五个。请你编一个程序计算出这堆零件至少是多少个?

[em8]随机产生一个1--10的整数,让人来猜,猜3次。猜对了,输出“YOU ARE VERY GOOD”,猜错了,输出“YOU ARE DIE”。
[em7]拜托,求求哪位大哥大姐可以作出来的,请告诉我。
我的邮箱:ding19931029@yahoo.com.cn

回复列表 (共1个回复)

沙发

2:
var n,i:integer;
begin
n:=100;
repeat
  n:=n+1;
  if (n mod 3=2)and(n mod 5=3)and(n mod 7=5) then begin writeln(n);halt;end;
until n=200;
end.

我来回复

您尚未登录,请登录后再回复。点此登录或注册