美文网首页
NAIVE的曾经(3)

NAIVE的曾经(3)

作者: 阔爷 | 来源:发表于2016-08-11 13:54 被阅读15次

在微信红包刚推出的时候,我对红包的分配十分感兴趣,于是做了这个东西。

一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一

const

n=100;

var

a:array[1..n] of real;

i,m,b,j:longint;

sum:real;

begin

for i:=1 to 5 do writeln;

sum:=0;

m:=0;

while ( m<=0 ) or ( (trunc(sum * 100) - (sum * 100)) < 0 ) or ( sum * 100

一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一

不贴图了。

相关文章

网友评论

      本文标题:NAIVE的曾经(3)

      本文链接:https://www.haomeiwen.com/subject/tjqssttx.html