tw1792a.pp 561 B

123456789101112131415161718192021222324252627
  1. uses
  2. math;
  3. var
  4. s : string;
  5. Begin
  6. {$ifdef FPC_HAS_TYPE_EXTENDED}
  7. str(intpower(2,63):25,s);
  8. if s<>' 9.2233720368547758E+0018' then
  9. begin
  10. WriteLn(intpower(2,63));
  11. halt(1);
  12. end;
  13. {$endif FPC_HAS_TYPE_EXTENDED}
  14. {$ifdef FPC_HAS_TYPE_DOUBLE}
  15. str(double(intpower(2,63)):22,s);
  16. {$ifdef FPC_HAS_TYPE_EXTENDED}
  17. if s<>' 9.22337203685478E+018' then
  18. {$else FPC_HAS_TYPE_EXTENDED}
  19. if s<>' 9.22337203685478E+018' then
  20. {$endif FPC_HAS_TYPE_EXTENDED}
  21. begin
  22. WriteLn(double(intpower(2,63)));
  23. halt(1);
  24. end;
  25. {$endif FPC_HAS_TYPE_DOUBLE}
  26. end.