判断i能否被3和5整除的python表达式为_急求大神解答,在线等。判断一个数能否被3和5整除。...

该楼层疑似违规已被系统折叠 隐藏此楼查看此楼

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);

begin

if not (key in [*0*..*9*,*.*,#8]) then

key:=#0;

end;

procedure TForm1.Button1Click(Sender: TObject);

var

n,m:real;

i:string;

begin

i:=Edit1.Text;

n:=strtofloat(i)/3;

m:=strtofloat(i)/5;

if (pos(*.*,Floattostr(n))=0) and (pos(*.*,Floattostr(m))=0) then

showmessage(*该数可以同时被3,5整除*);

if (pos(*.*,Floattostr(n))=0) and (pos(*.*,Floattostr(m))<>0) then

showmessage(*该数只能被3整除*);

if (pos(*.*,Floattostr(n))<>0) and (pos(*.*,Floattostr(m))=0) then

showmessage(*该数只能被5整除*);

if (pos(*.*,Floattostr(n))<>0) and (pos(*.*,Floattostr(m))<>0) then

showmessage(*该数都不能被3,5整除*);

end;

procedure TForm1.Edit1Change(Sender: TObject);

begin

if strtoint(edit1.Text)>100 then

begin

showmessage(*程计100*);

edit1.Text:=*100*;

end

end;

还有个DVI函数也可以实现 DVI返回result.quot 是商 , result.rem是余数 可以判断余数为0 去调用

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值