1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
|
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.
|
