Программа, которая дописывает в файл 5 введенных целых чисел, а затем подсчитывает сумму всех чисел в файле

@Katushenka5690 · Регистрация: 19.10.2014

Студворк — интернет-сервис помощи студентам

Написать программу, которая дописывает в файл 5 введенных пользователем целых чисел, а затем подсчитывает сумму всех чисел в файле. В файле каждый элемент данных должен находиться в отдельной строке. На экран вывести все числа из файла и сумму.
Напишите хотя бы кусочек программы, очень нужно!

@bormant · 08.12.2014, 16:37

Pascal

var
  f: Text;
  i, n: Integer;
begin
  Assign(f,'katusha.txt');
  {$I-} Append(f); {$I+}
  if IOResult<>0 then Rewrite(f);
  Write('Введите 5 целых чисел: ');
  for i:=1 to 5 do begin
    Read(n); WriteLn(f,n);
  end;
  WriteLn('Содержимое файла:');
  Reset(f); i:=0;
  while not SeekEOF(f) do begin
    Read(f,n); WriteLn(n); i:=i+n;
  end;
  Close(f);
  WriteLn('Сумма = ',i);
end.

@Katushenka5690 0 / 0 / 0 Регистрация: 19.10.2014 Сообщений: 17
		1
	Программа, которая дописывает в файл 5 введенных целых чисел, а затем подсчитывает сумму всех чисел в файле 08.12.2014, 16:24. Показов 1594. Ответов 1 Метки нет (Все метки) Написать программу, которая дописывает в файл 5 введенных пользователем целых чисел, а затем подсчитывает сумму всех чисел в файле. В файле каждый элемент данных должен находиться в отдельной строке. На экран вывести все числа из файла и сумму. Напишите хотя бы кусочек программы, очень нужно! 0

Опции темы

Программа, которая дописывает в файл 5 введенных целых чисел, а затем подсчитывает сумму всех чисел в файле

Решение