mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 06:28:55 +02:00
35 lines
475 B
ObjectPascal
35 lines
475 B
ObjectPascal
program try;
|
|
|
|
procedure check(s: string);
|
|
var
|
|
i: longint;
|
|
begin
|
|
delete(s,pos(' ',s),1);
|
|
delete(s,pos('E',s),1);
|
|
delete(s,pos('.',s),1);
|
|
delete(s,pos('+',s),1);
|
|
for i := 1 to length(s) do
|
|
if (s[i]<>'0') then
|
|
halt(1);
|
|
end;
|
|
|
|
var
|
|
foo: single;
|
|
d: double;
|
|
e: extended;
|
|
s: string;
|
|
begin
|
|
foo:=0.0;
|
|
d:=0.0;
|
|
e:=0.0;
|
|
str(foo,s);
|
|
writeln(s);
|
|
check(s);
|
|
str(d,s);
|
|
writeln(s);
|
|
check(s);
|
|
str(e,s);
|
|
writeln(s);
|
|
check(s);
|
|
end.
|