Записать в файл 5 введенных пользователем целых чисел, подсчитать сумму всех чисел в файле

@Rikol · Регистрация: 19.04.2016

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

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

@Peoples · 26.04.2016, 15:11

Если файл должен быть текстовым,а не типизированным, то вот решение

Pascal

program pr;
 
var
  f: text;
  m, sum, i, g: integer;
  c: string;
 
begin
  sum := 0;
  randomize;
  assign(f, 'c:\summ.txt');
  rewrite(f);
  for i := 1 to 5 do
  begin
    m := random(21);
    str(m, c);
    writeln(f, c);
  end;
  close(f);
  reset(f);
  while not eof(f) do
  begin
    readln(f, c);
    write(c:3);
    val(c, m, g);
    sum := sum + m;
  end;
  writeln;
  writeln('Сумма: ', sum);
  close(f);
end.

@Joy · 26.04.2016, 15:28

Peoples, написано

Сообщение от Rikol

введенных пользователем целых чисел

Pascal

uses System.IO, Arrays;
begin
  write('введите 5 чисел:');
  &File.WriteAllLines('num.dat',ReadArrInteger(5).Select(i->inttostr(i)));
  var a:=&File.ReadAllLines('num.dat').Select(s->StrToInt(s)).ToArray();
  writeln('Содержимое файла:'+newline+string.Join(newline,a.Select(i->inttostr(i)))+newline+
  'сумма=',a.Sum());
end.

@Peoples · 26.04.2016, 15:42

Pascal

read(m)

в 15 строчке

@Rikol 0 / 0 / 0 Регистрация: 19.04.2016 Сообщений: 96
		1
	Записать в файл 5 введенных пользователем целых чисел, подсчитать сумму всех чисел в файле 26.04.2016, 11:50. Показов 2314. Ответов 3 Метки нет (Все метки) Написать программу, которая записывает в файл 5 введенных пользователем целых чисел, а затем подсчитывает сумму всех чисел в файле. В файле каждый элемент данных должен находиться в отдельной строке. На экран вывести все числа из файла и сумму 0

	26.04.2016, 15:42

Опции темы

Записать в файл 5 введенных пользователем целых чисел, подсчитать сумму всех чисел в файле

Решение