print open("ascii-file").read().replace("\n", " ").split(" ", N + 1)[-2]

N = ...

with open("ascii-file") as f:
    t = 0
    while t < N:
        slice = 10
        while True:
            data = f.read(slice).replace("\n", " ")
            if data.find(" ") == -1:
                slice += 10
                continue
            else:
                data = data.split(" ", 1)[0]
                break
        f.seek(f.tell() + len(data) + 1)
        
        t += 1
    else:
        print data

file=__ФАЙЛ_С_ЧИСЛАМИ__
result=N
numInt=0
symInt=0
while IFS= read -n 1 sym; do
    if [[ "$sym" == ' ' ]] || [[ "$sym" == '' ]]; then
        numInt=$((++numInt))
        if [[ "$numInt" == "$result" ]]; then
            echo "$num"
            break 3
        else
            num=
        fi
    else
        num="$num$sym"
    fi
done < "$file"

N = ...

with open("ascii-file") as f:
    counter = 0
    while counter < N:
        slice = 10
        while True:
            chunk = f.read(slice).replace("\n", " ")
            if chunk.find(" ") == -1:
                slice += 100
                f.seek(-len(chunk))
                continue
            else:
                number = chunk.split(" ", 1)[0]
                break
        f.seek(len(number) - len(chunk) + 1, 1)
        
        counter += 1
    else:
        print number

#!/usr/bin/tclsh

# return N-th word from file passed by name
proc Nth_word { N fname } { 
	set len 0
	set f [ open $fname "r" ]
	while { ! [ eof $f ] } {
		set line [ gets $f ]
		set nlen [ expr {$len + [ llength $line ] } ]
		if { $N<$nlen } {
			close $f
			return [ lindex $line [ expr { $N - $len } ] ]
		}
		set len $nlen
	}
	close $f
	return {}
}
if { [ llength $argv ] != 2 } {
	puts stderr "Usage: $argv0 N filename"
	exit 1
}

set tm [ time {
	puts [ Nth_word {*}$argv ]
} ]

puts stderr $tm

Path filePath = Paths.get("file.txt");
Scanner scanner = new Scanner(filePath);
int i = 0;
result = 0;
while (i<N && scanner.hasNext()) {
    if (scanner.hasNextInt()) {
        result = scanner.nextInt();
        i++;
    } else {
        break;
    }
}

from shlex import shlex
s = shlex(open("filename"))
for i in range(N - 1):
    s.get_token()
print(s.get_token())

%{
unsigned int line_num = 1;
unsigned int n = 0, limit = 0;
double f = 0;
%}

%option noyywrap

FNUM    [-+]?[0-9]*\.?[0-9]+([eE][-+]?[0-9]+)?

%%
     
{FNUM}		{
			n++;
			if (n == limit) {
				f = atof(yytext);
				return;
			} 
		}

[\n]		line_num++;

[ \t]+		/* eat up whitespace */
     
.		printf("Unrecognized character: %s at line %d\n", yytext, line_num);
     
%%
     
int
main(int argc, char **argv)
{
	if (argc != 3) {
		fprintf(stderr, "Usage: %s file n\n", argv[0]);
		return 1;
	} else {
		yyin = fopen(argv[1], "r");
		limit = atoi(argv[2]);
		if (limit == 0) {
			fprintf(stderr, "Invlid n: '%s'\n", argv[2]);
			return 1;
		}
	}
     
	yylex();
	if (n != limit) {
		fprintf(stderr, "Can't get element #%u\n", limit);
		return 1;
	}
	printf("f: %f\n", f);
	return 0;
}

#!/usr/bin/env python
# encoding: utf-8

import sys
from shlex import shlex

s = shlex(open(sys.argv[1]))
s.wordchars = '0123456789.+-eE'

for i in range(int(sys.argv[2])):
    s.get_token()

print(s.get_token())

#lang racket

(define (find-num n)
  (call-with-input-file "numbers"
    (λ (file)
       (let loop ([i n])
         (define number (car (regexp-match #px"\\S+" file)))
         (match i
           [1 number]
           [_ (loop (sub1 i))])))))

#include <iostream>
#include <fstream>
#include <cstdlib>

int
main (int argc, char **argv)
{
  std::fstream fin (argv[1], std::fstream::in);
  double answer;
  
  for (int i = 0; i < std::atoi (argv[2]); i++)
    fin >> answer;
  fin.close ();

  std::cout << answer << std::endl;
  return 0;
}

 f=fopen("ascii-file","r");

  for (i=0;i<N;i++)
  {
    fscanf(f,"%g ",&num);
  }
  printf("%lg\n",num);

 f=fopen("ascii-file","r");

  for (i=0;i<N-1;i++)
  {
    if (fscanf(f,"%*g")!=0) { /** eof or not double?? **/};
  }
  fscanf(f,"%g",&num);
  printf("%lg\n",num);

#lang at-exp racket

(define/contract ((find-num n) in-prt)
  (exact-positive-integer? . -> . (input-port? . -> . number?))
  (let loop ([i (sub1 n)])
    (define p (regexp-match #px"\\S+" in-prt))
    (unless p
      (error 'find-num "eof!"))
    (if (zero? i)
        (string->number (bytes->string/utf-8 (car p)))
        (loop (sub1 i)))))

(module+ test
  (require rackunit)
  (define txt @~a{1.45E+4 5E+6 7E+8
                  2.42E+1 7.7E+2 1E-1 5E-6 4E-6
                  1E-6 1E-8})
  (define (test-helper n)
    (call-with-input-string txt (find-num n)))
  (check-equal? (test-helper 9) 1e-6)
  (check-exn exn:fail? (λ () (test-helper 100) 1e-6)))

(call-with-input-file "numbers.txt" (find-num N))