Напишите программу, осуществляющую чтение из исходного текстового файла input.txt вход-ных данных (коэффициентов a, b, c), сумму этих коэфициентов ивывод результатов в выходной текстовый файл output.txt. Предполагается, что в input.txt вкаждой строке записаны знаения а,b,c через пробел, а в выходной файл записывается ответ(сумма этих трех перемнных).Pascal abc
Напишите программу, осуществляющую чтение из исходного текстового файла input.txt вход-ных данных (коэффициентов a, b, c), сумму этих коэфициентов ивывод результатов в выходной текстовый файл output.txt. Предполагается, что в input.txt вкаждой строке записаны знаения а,b,c через пробел, а в выходной файл записывается ответ(сумма этих трех перемнных).Pascal abc
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Интересные статьи из справочника
Поможем написать учебную работу
Отвечай на вопросы, зарабатывай баллы и трать их на призы.
Подробнее
Подробнее
Program ReadCoefficients;
var
inputFile, outputFile: Text;
a, b, c, sum: Integer;
begin
AssignFile(inputFile, 'input.txt');
AssignFile(outputFile, 'output.txt');
Reset(inputFile);
Rewrite(outputFile);
sum := 0;
while not Eof(inputFile) do
begin
Readln(inputFile, a, b, c);
sum := a + b + c;
end;
Write(outputFile, sum);
CloseFile(inputFile);
CloseFile(outputFile);
end.