Код IT
← Каталог

Pascal / Free Pascal — типовые программы — 7.1. Чтение чисел из текстового файла

Фрагмент из «Pascal / Free Pascal — типовые программы»: 7.1. Чтение чисел из текстового файла.

pascal lab1140 embed URL статья в энциклопедии
Pascal main.pas 
program ReadFromFile;

var
  f: text;
  x: integer;
  sum: int64;

begin
  Assign(f, 'input.txt');
  Reset(f);
  sum := 0;
  while not Eof(f) do
  begin
    Read(f, x);
    sum := sum + x;
  end;
  Close(f);
  WriteLn(sum);
end.
program ReadFromFile;

var
  f: text;
  x: integer;
  sum: int64;

begin
  Assign(f, 'input.txt');
  Reset(f);
  sum := 0;
  while not Eof(f) do
  begin
    Read(f, x);
    sum := sum + x;
  end;
  Close(f);
  WriteLn(sum);
end.