历届真题 pascal noip

输 出：

如果无实数解，则输出"No solution"；

如果有两个相等的实数解，则输出其中一个，四舍五入到小数点后面3位；

如果有两个不等的实数解，则解与解之间用逗号隔开，同样要四舍五入到小数点后3位。

输入样例：

l 2 1

输出样例：

-1.000

程 序：

program Program41； var a，b，c，m：real； begin read (a，b，c)； m：=b*b -4*a*c； if ( ① )then begin write ( ② ：0：3)； write( ` , ` ); write ((-1*b-sqrt(m))／(2*a)：0： ③ )； end else if ( ④ )then write( ⑤ ) else begin write (`No solution`)； end end．

2．翻硬币

题目描述：

一摞硬币共有m枚，每一枚都是正面朝上。取下最上面的一枚硬币，将它翻面后放回原处。然后取下最上面的2枚硬币，将他们一起翻面后再放回原处。再取3枚，取4枚……直至m枚。然后再从这摞硬币最上面的一枚开始，重复刚才的做法。这样一直做下去，直到这摞硬币中的每一枚又都是正面朝上为止。例如，m为1时，翻两次即可。m为2时，翻3次