主题:帮帮我!!!(+++++50)
HarryPotter
[专家分:20] 发布于 2005-11-17 22:22:00
1、输入一个正整数n,将n分解成质因数幂的乘积形式。
例如:36=22*32
2.有一堆100多个的零件,若三个三个数,剩二个;若五个五个数,剩三个;若七个七个数,剩五个。请你编一个程序计算出这堆零件至少是多少个?
3、随机产生一个1--10的整数,让人来猜,猜3次。猜对了,输出“YOU ARE VERY GOOD”,猜错了,输出“YOU ARE DIE”。
4、随机产生1--100中的某一个数,给人猜,猜十次,计算机提示输入的数与原数的大小比较。
[em7][em7][em7]
回复列表 (共5个回复)
沙发
小虾虾 [专家分:300] 发布于 2005-11-18 10:32:00
1 用循环搜索就行了.
2 同上
3 用IF搞定
4 FOR+IF
板凳
花花美男子 [专家分:260] 发布于 2005-11-19 10:24:00
program 2(inout,output)
var
n:integer;
begin
if (n>100)and(n<200)
then
if (n mod 3=2)and(n mod 5=3)and(n mod 7=5)
then
write('n=',n);
end.
3 楼
花花美男子 [专家分:260] 发布于 2005-11-19 10:33:00
program 3(input,output);
var
n,m:integer;
begin
radomize(n);
read(m);
if (m>0)and(m<10)and(m=n)then
write('you are good')
else('you are die');
end.
随即函数我不太会用~~~~可能这个错了,应该错在随即函数部分
4 楼
花花美男子 [专家分:260] 发布于 2005-11-19 10:40:00
program 1(input,output);
var
m,n,i:integer;
begin
for i:=1 to n do begin
if n mod i=0 then
m:=n div i
writeln(n,'=',i,'*',m);
end.
5 楼
花花美男子 [专家分:260] 发布于 2005-11-19 10:41:00
4题同三题
,顺便佩服一下二楼的纸上谈兵,不错
我来回复