Вывести единственное число - суммц заданных чисел a+b

@Arna · Регистрация: 03.11.2012

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

Привет Всем! Я не программист и знаю паскаль только на нижнем уровне самые простые задачи. Вот, получила задачу по инф. и ничего не понемаю и не знаю даже как начать, помогите мне.

Имя входного файла: sum.in
Имя выходного файла: sum.out
Ограничения по времени: 2 секунды
Ограничения по памяти : 256 мегабайт
Формат входного и выходного файла
На первой строке входного файла находятся два целых числа a и b (〖-10〗^9<a, b <10^9)
Вашей программе требуется вывести единственное число - суммц заданных чисел a+b
пример
Sum. in Sum.out
2 3 5
17 -18 -1

Kodzaev · 03.11.2012, 18:01

Так как файлы малого объема, циклы не использовал, а банально считывал каждое число.
Файл типизированный, предполагается, что уже существует.
Ограничение по времени не брал в расчет. Если не устраивает могу переделать.

Pascal

Var
  f1,f2: File of Longint;
  a,b,r: Longint;
BEGIN
Assign(f1,'Sum.in');
{$I-}Reset(f1);{$I+}
If IOResult=0 Then
begin
  Assign(f2,'Sum.out');
  Rewrite(f2);
  Seek(f1,0);
  Read(f1,a);
  Seek(f1,1);
  Read(f1,b);
  r:=a+b;
  Write(f2,r);
  Writeln('Gotovo!');
  Writeln('Fail Sum.out:');
  Reset(f2);
  Seek(f2,0);
  Read(f2,a);
  Writeln(a);
  Close(f1);
  Close(f2);
end
Else Writeln('Fail ne sushestvuet');
Readln
END.

@Arna · 04.11.2012, 14:52 **[ТС]**

Спасибо.

Комментарий модератора

Официальный язык форума - русский.

@Arna 0 / 0 / 0 Регистрация: 03.11.2012 Сообщений: 35
		1
	Вывести единственное число - суммц заданных чисел a+b 03.11.2012, 13:44. Показов 2124. Ответов 2 Метки нет (Все метки) Привет Всем! Я не программист и знаю паскаль только на нижнем уровне самые простые задачи. Вот, получила задачу по инф. и ничего не понемаю и не знаю даже как начать, помогите мне. Имя входного файла: sum.in Имя выходного файла: sum.out Ограничения по времени: 2 секунды Ограничения по памяти : 256 мегабайт Формат входного и выходного файла На первой строке входного файла находятся два целых числа a и b (〖-10〗^9<a, b <10^9) Вашей программе требуется вывести единственное число - суммц заданных чисел a+b пример Sum. in Sum.out 2 3 5 17 -18 -1 0

	04.11.2012, 14:52

Вывести единственное число - суммц заданных чисел a+b

Решение