8 lines
116 B
ObjectPascal
8 lines
116 B
ObjectPascal
|
var r: real;
|
|||
|
|
begin
|
|||
|
|
if real.IsNaN(r) then
|
|||
|
|
writeln(1);
|
|||
|
|
r:=real.NaN;
|
|||
|
|
if r<>r then
|
|||
|
|
writeln('NaN');
|
|||
|
|
end.
|