Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/4: Рейтинг темы: голосов - 4, средняя оценка - 4.50
knder
0 / 0 / 0
Регистрация: 18.10.2016
Сообщений: 1
1

Даны два файла целых чисел. Определить равны ли суммы в этих файлах

18.10.2016, 16:56. Просмотров 774. Ответов 1
Метки нет (Все метки)

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

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

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

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

Даны два файла А и В (тип элементов одинаковый). Поменять местами содержимое этих файлов.
Даны два файла А и В (тип элементов одинаковый). Поменять местами содержимое...

Определить равны ли суммы чисел
здравствуйте, подскажите пожалуйста: вот у меня дано, например, 3 числа. как...

1
ZX Spectrum-128
Модератор
Эксперт Pascal/Delphi
3882 / 2864 / 3639
Регистрация: 05.06.2014
Сообщений: 14,085
18.10.2016, 17:37 2
Лучший ответ Сообщение было отмечено knder как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
var
  f1, f2: file of integer;
  x, s1, s2: integer;
 
begin
  assign(f1, 'f1.dat');
  assign(f2, 'f2.dat');
  // заполнение файлов
  rewrite(f1);
  for s1 := 1 to 10 do
  begin
    x := random(10);
    write(f1, x);
  end;
  rewrite(f2);
  for s2 := 1 to 10 do
  begin
    x := random(10);
    write(f2, x);
  end;  
  //
  
  reset(f1);
  reset(f2);
  s1 := 0;
  while not eof(f1) do
  begin
    read(f1, x);
    s1 := s1 + x;
  end;
  s2 := 0;
  while not eof(f2) do
  begin
    read(f2, x);
    s2 := s2 + x;
  end;
  
  close(f1);
  close(f2);
  writeln(s1, ' ', s2);
  if s1 <> s2 then
    writeln('Не равны')
  else
    writeln('Равны');    
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
18.10.2016, 17:37

Даны два двумерных массива целых чисел А[5][5], В[5][5].
Определить, в котором из них наименьшая сумма элементов главной диагонали, если...

Определить, равны ли суммы первой и последней цифр чисел
заданы два целых числа. Определить используя функции и процедуры. -равны ли...

Паскаль. Л7. з1. Даны два одномерных массива целых чисел


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

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

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