回 帖 发 新 帖 刷新版面

主题:帮帮我!!!(+++++50)

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个回复)

沙发

1 用循环搜索就行了.
2 同上
3 用IF搞定
4 FOR+IF

板凳

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 楼

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 楼

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 楼

4题同三题

,顺便佩服一下二楼的纸上谈兵,不错

我来回复

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