Language: C++

// {{{ by unolight
#include <bits/stdc++.h>
#include <unistd.h>
#pragma GCC diagnostic ignored "-Wunused-result"
#pragma GCC diagnostic ignored "-Wunused-function"
#define SZ(x) ((int)(x).size())
#define ALL(x) begin(x),end(x)
#define RALL(x) rbegin(x),rend(x)
#define REP(i,n) for ( int i=0; i<int(n); i++ )
#define REP1(i,a,b) for ( int i=(a); i<=int(b); i++ )
#define MP make_pair
#define PB push_back
using namespace std;
typedef int64_t LL;
typedef pair<int,int> PII;
typedef vector<int> VI;

namespace { namespace unolight {
// Read Input
template<class T> void _R( T &x ) { cin>>x; }
void _R( int &x ) { scanf("%d",&x); }
void _R( int64_t &x ) { scanf("%" PRId64,&x); }
void _R( double &x ) { scanf("%lf",&x); }
void _R( char &x ) { scanf(" %c",&x); }
void _R( char *x ) { scanf("%s",x); }
void R() {}
template<class T, class... U> void R( T& head, U&... tail ) { _R(head); R(tail...); }
// Write Output
template<class T> void _W( const T &x ) { cout<<x; }
void _W( const int &x ) { printf("%d",x); }
void _W( const int64_t &x ) { printf("%" PRId64,x); }
void _W( const double &x ) { printf("%.16f\n",x); }
void _W( const char &x ) { putchar(x); }
void _W( const char *x ) { printf("%s",x); }
template<class T> void _W( const vector<T> &x ) { for (auto i = x.begin(); i != x.end(); _W(*i++)) if (i != x.cbegin()) putchar(' '); }
void W() {}
template<class T, class... U> void W( const T& head, const U&... tail ) { _W(head); putchar(sizeof...(tail)?' ':'\n'); W(tail...); }

#ifdef UNOLIGHT
#include "dump.hpp"
#else
#define dump(...)
#endif

template<class T> inline bool chmax( T &a, const T &b ) { return b>a ? a=b,true : false; }
template<class T> inline bool chmin( T &a, const T &b ) { return b<a ? a=b,true : false; }
template<class T> using MaxHeap = priority_queue<T>;
template<class T> using MinHeap = priority_queue<T, vector<T>, greater<T>>;
template<class T, class F=less<T>> void sort_uniq( vector<T> &v, F f=F() ) {
    sort(begin(v),end(v),f);
    v.resize(unique(begin(v),end(v))-begin(v));
}
// }}}

typedef long double Double;
const int N=60;
int cnt[N][N];
void main() {
    int n;
    R(n);
    REP(i,n) {
        Double x;
        R(x);
        Double y=x*1e9 + 0.5;
        int a=0, b=0;
        while ( y%2==0 ) { a++; y/=2; }
        while ( y%5==0 ) { b++; y/=5; }
        cnt[a][b]++;
    }
    LL ans=0;
    REP(i,N) REP(j,N) REP(ii,N) REP(jj,N) {
        if ( MP(i,j)<=MP(ii,jj) ) {
            if ( i+ii>=18 && j+jj>=18 ) {
                if ( i==ii && j==jj ) ans+=(LL)cnt[i][j]*(cnt[i][j]-1)/2;
                else ans+=cnt[i][j]*cnt[ii][jj];
            }
        }
    }
    W(ans);
}

}} // {{{ main
int main() { unolight::main(); return 0; }
// }}}

Compiler output:
a.cc: In function 'void {anonymous}::unolight::main()':
a.cc:66:18: error: invalid operands of types '{anonymous}::unolight::Double' {aka 'long double'} and 'int' to binary 'operator%'
   66 |         while ( y%2==0 ) { a++; y/=2; }
      |                 ~^~
      |                 | |
      |                 | int
      |                 {anonymous}::unolight::Double {aka long double}
a.cc:67:18: error: invalid operands of types '{anonymous}::unolight::Double' {aka 'long double'} and 'int' to binary 'operator%'
   67 |         while ( y%5==0 ) { b++; y/=5; }
      |                 ~^~
      |                 | |
      |                 | int
      |                 {anonymous}::unolight::Double {aka long double}