query1.⑤ end; end. 得分 评卷人 五、编程题(10分) 29.输人一个数字，程序判断如下情况：如果能被3整除但同时不能被5整除，显示“该数 只能被3整除”：如果只能被5整除但是不能被3整除，显示“该数只能被5整除”，若被3整除 同时被5整除，显示“该数可以同时被3、5整除”。 本程序设计界面及运行界面如下： Foral 酒☒ 输入数字(1至100以内) 输入数字（1至100以Projectn.…☒ Edit1 o 该克只能拔盟聊 。Button1. 判断 'Fotal 输入数字(1至100 Projectn.…区 输入数字(1至 该数可以可时被3、5出擀 39 溪数只能黄3整碑 160 判断 判断 请编写单击“判断”(Buttonl)按钮的事件处理程序。 procedure TForml.ButtonlClick(Sender:TObject); begin end; 1026query1. aD end; end. 得分|评卷人 五、编程题(1 29. 输入→ 序 判 果 能被3 能被5 只能被 3整除";如果只能被5整除但是不能被3整除，显示"该数只能被5整除"，若被 3整除 同时被 5整除，显示"该数可以同时被 5整除"。 本程序设计界面及运行界面如下: 圃圄噩噩噩 h ‘ .J , - -H1·RM￾EE 请编写单击"判断 !)按钮的事件处理程序。 procedure TForml. Button}Click(Sender: TObject) ; begin end; 1026