Форум программистов, компьютерный форум, киберфорум
Наши страницы
Free Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
ден445
0 / 0 / 0
Регистрация: 30.10.2015
Сообщений: 6
#1

Найти сумму чётных чисел в файле

09.11.2015, 20:37. Просмотров 667. Ответов 4
Метки нет (Все метки)

В файле хранятся целые числа. Найдите сумму четных чисел без использования массивов?
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
09.11.2015, 20:37
Ответы с готовыми решениями:

Найти сумму чисел в файле и вывести на экран числа и полученную сумму
11.записать в файл любые 10 чисел,найти сумму этих чисел и вывести на экран...

Рекурсия: найти сумму чисел в файле
Помогите решить плз пару задачек. Одна программа должна быть с рекурсией ,...

Найти сумму чисел, стоящих после первого положительного числа в файле
Найти сумму чисел, стоящих после первого положительного числа в файле.

Дан файл, содержащий целые числа. Найти сумму четных чисел в данном файле
Дан файл, содержащий целые числа. Найти сумму четных чисел в данном файле....

найти сумму чётных чисел от 1 до 200.
надо через repeat найти сумму чётных чисел от 1 до 200. И 3-мя способами...

4
Puporev
Модератор
54357 / 41947 / 28979
Регистрация: 18.05.2008
Сообщений: 98,811
09.11.2015, 20:43 #2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Цитата Сообщение от ден445 Посмотреть сообщение
Найдите сумму четных чисел без использования массивов
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
var f:text;
     a,s:integer;
begin
assign(f,'1.txt');//текстовый файл с целыми числами, записанными через пробелы, лежит в папке с программой
reset(f);
s:=0;
while not eof(f) do
 begin
   read(f,a);
   if a mod 2=0 then s:=s+a;
 end;
close(f);
write('S=',s);
end.
1
bormant
Модератор
Эксперт Pascal/DelphiЭксперт NIX
3800 / 2485 / 2051
Регистрация: 22.11.2013
Сообщений: 6,912
09.11.2015, 20:49 #3
Лучший ответ Сообщение было отмечено ZX Spectrum-128 как решение

Решение

Вариант с бинарным файлом:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
var
  f: file of Integer;
  i: Integer;
  s: Longint;
begin
  Assign(f,'file.bin'); Reset(f);
  while not EOF(f) do begin
    Read(i); if not Odd(i) then s:=s+i;
  end;
  Close(f);
  WriteLn('Сумма четных: ',s);
end.
Вариант с текстовым файлом:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
var
  f: Text;
  i: Integer;
  s: Longint;
begin
  Assign(f,'file.txt'); Reset(f);
  while not SeekEOF(f) do begin
    Read(i); if not Odd(i) then s:=s+i;
  end;
  Close(f);
  WriteLn('Сумма четных: ',s);
end.
0
Sergio Leone
2467 / 1112 / 579
Регистрация: 07.06.2014
Сообщений: 3,259
09.11.2015, 21:58 #4
Цитата Сообщение от bormant Посмотреть сообщение
Pascal
1
2
3
while not EOF(f) do begin
* * Read(i); if not Odd(i) then s:=s+i;
* end;
только при чтении файл нужно обязательно указывать:
Pascal
1
Read(f, i);
1
bormant
Модератор
Эксперт Pascal/DelphiЭксперт NIX
3800 / 2485 / 2051
Регистрация: 22.11.2013
Сообщений: 6,912
10.11.2015, 00:37 #5
Угу, опечатался.
1
10.11.2015, 00:37
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
10.11.2015, 00:37

Найти сумму чисел, которые стоят на чётных местах
Дано 14 чисел. Найти сумму тех чисел, которые стоят на четных местах.

1. Создать файл, состоящий из N целых чисел. Вывести содержимое этого файла на экран. 2. Найти сумму чётных положительных элементов файла, созданного
1 задача есть по 1 надо сделать вторую я незнаю как помогите. цёмик вас=*)

Подсчитать сумму чисел в чётных строках массива
Сформировать массив натуральных чисел из M строк и N столбцов. Подсчитать сумму...


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

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

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