阿基米德数字(pascal)怎么做?所谓“阿基米德特性”是这样的一条性质:对...

发布网友发布时间：2024-10-02 06:55

共1个回答

热心网友时间：2024-11-22 10:27

var
a，b，m：longint；
begin
read(a,b);
m:=b div a;{最小的m一定大于b div a}
while a*m<=b do inc(m);
write(m);
end.{没有用文件输入输出啊}

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com