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

Question

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

Comments

Какой тип данных в файле, как он организован?

---

хз не написано

---

Но, может вы решали подобные задачи уже, где читались файлы?

---

Напишу, как понимаю. Во входном файле - целые числа через пробел и/или с новой строки. Можно несколько на строке, потом менять строчку.

Answer 1

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.

Comments

Добавил на экран вывод, забыл вначале.