Опубликовано 11.06.2017 по предмету Информатика от Гость >> <<

ПОМОГИТЕ СРОЧНЯК!!!Составить программу, которая подсчитывает в имеющимся файле количество чисел и выводит ответ на экран и в файл output.txt

Ответ оставил Гость

Var
  f:Text;
  n,k:integer;
begin
  Assign(f,input.txt);
  Reset(f);
  n:=0;
  while not Eof(f) do begin Read(f,n); Inc(k) end;
  Close(f);
  Assign(f,output.txt);
  Rewrite(f);
  Writeln(f,k); Writeln(k);
  Close(f)
end.