fpcsrc/tests/webtbs/tw7105.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

var i:integer;
    H:single;
    s:string;

begin
  H:= 10;
  for i:=1 to 25 do
    begin
      str(H:8,s);
      if (s[1] <> ' ') or
         (length(s) <> 8) then
        begin
          writeln(s);
          halt(1);
        end;
      H:= H / 10.0;
    end;
end.