Пример файлы

Сумма и произведение

Входной файл: input.txt

Выходной файл: output.txt

Даны два целых числа А и В. Найти их сумму и произведение.

Входные данные:

В первой строке входного файла содержится единственное число А, (0<А<=32000).
Во второй строке входного файла содержится единственное число В, (0<В<=32000).

Выходные данные:

В единственную строку выходного файла вывести через пробел сумму и произведение этих чисел.

Примеры:

input.txt output.txt
1 1
2
3 2
2 5
7
12 35

Решение:

Program Sum_Pr;
Var A, B, C, D: longint;
    // описываем файловые переменные
    f1, f2: text;
Begin
     // связываем переменную f1 с файлом input.txt
     Assign(f1, 'input.txt');
     // открываем файл связанный с f1 для чтения
     Reset(f1);
     // связываем переменную f2 с файлом output.txt
     Assign(f2, 'output.txt');
     // открываем файл связанный с f2 для записи
     Rewrite(f2);
     // считываем переменную А с первой строки
     // и переходим но следующую строку

     ReadLn(f1, A);
     // считываем переменную В
     ReadLn(f1, B);
     C := A + B;
     D := A * B;
     // выводим результат в файл, связанный с f2
     Write(f2, C, ' ', D);
     // закрываем файл связанный с f1
     Close(f1);
     // закрываем файл связанный с f2
     Close(f2);
End.

Четверг
16.08.2018
06:12
Поиск
Календарь
«  Август 2018  »
ПнВтСрЧтПтСбВс
  12345
6789101112
13141516171819
20212223242526
2728293031