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. |