Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
Katushenka5690
0 / 0 / 0
Регистрация: 19.10.2014
Сообщений: 17
1

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

08.12.2014, 16:24. Просмотров 855. Ответов 1
Метки нет (Все метки)

Написать программу, которая дописывает в файл 5 введенных пользователем целых чисел, а затем подсчитывает сумму всех чисел в файле. В файле каждый элемент данных должен находиться в отдельной строке. На экран вывести все числа из файла и сумму.
Напишите хотя бы кусочек программы, очень нужно!
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
08.12.2014, 16:24
Ответы с готовыми решениями:

напишите программу,которая определяет сумму всех положительных чисел вводимой последовательности из N целых чисел.
help me,please!!!

Дана строка целых чисел. Составить программу, которая вычисляет сумму первых цифр всех чисел данной строки
1. Дана строка целых чисел. Составить программу, которая вычисляет сумму первых...

1) Подсчитать произведение и количество всех неотрицательных чисел из 10 не целых чисел, введенных пользовател
1) Подсчитать произведение и количество всех неотрицательных чисел из 10 не...

Составить программу, которая подсчитывает общее количество целых пятизначных чисел
Составить программу, которая подсчитывает общее количество целых пятизначных...

Дан файл вещественных чисел. Создать файл целых чисел, содержащий номера всех локальных экстремумов исходного файла в порядке убывания
File22. Дан файл вещественных чисел. Создать файл целых чисел, содержащий...

1
bormant
Модератор
Эксперт Pascal/DelphiЭксперт NIX
3894 / 2554 / 2082
Регистрация: 22.11.2013
Сообщений: 7,135
08.12.2014, 16:37 2
Лучший ответ Сообщение было отмечено Katushenka5690 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
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.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
08.12.2014, 16:37

Вводится последовательность из n целых чисел найти сумму всех нечетных чисел
Вводится последовательность из n целых чисел найти сумму всех нечетных чисел ...

Подсчитать сумму всех введенных нечетных чисел
Вводить числа с клавиатуры, пока не встретится 0. Подсчитать сумму всех...

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


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru