#include <iostream>
#include <string>

using namespace std;

int main () {
  string user_input;
  cout << "Please enter a five digit integer: ";
  cin >> user_input;
  for ( size_t ix = 0; ix != user_input.size(); ++ix ) {
    for ( size_t count = 0; count <= ix; ++count )
      cout << user_input.at(ix);
    cout << endl;
  }
  return 0;
}

##</code><code>##

#!/usr/bin/env perl

use strict;
use warnings;

use Inline CPP => <<'EOC';
#include <iostream>
#include <string>

void doit () {
  std::string user_input;
  std::cout << "Please enter a five digit integer: ";
  std::cin >> user_input;
  for ( size_t ix = 0; ix != user_input.size(); ++ix ) {
    for ( size_t count = 0; count <= ix; ++count )
      std::cout << user_input.at(ix);
    std::cout << std::endl;
  }
}
EOC

doit;