10 lines
103 B
OpenEdge ABL
10 lines
103 B
OpenEdge ABL
|
program digits(output);
|
||
|
|
var r: real;
|
||
|
|
begin
|
||
|
|
r := 0.;
|
||
|
|
r := .0;
|
||
|
|
r := 1.e10;
|
||
|
|
r := .05e-10;
|
||
|
|
writeln(r)
|
||
|
|
end.
|