Question

Найти сумму чисел из файла, меньших заданного числа. Помогите пожалуйста, Паскаль

Answer 1

Var
f:text;
n,n1,s:real;
begin
readln(n);
Assign(t,'input.txt');
while (eof(t)=false)do
begin
readln(t,n1);
if (n1 < n)then s:=s+n1;
end;
Close(t);
writeln(s)
end.

Answer 2

Конечно, вот пример кода на языке Pascal (Free Pascal), который читает числа из файла и находит сумму чисел, меньших заданного числа:

pascalCopy code
program SumOfNumbersFromFile;

var
  FileName: string;
  TargetNumber, NumberFromFile, Sum: Integer;
  FileHandle: TextFile;

begin
  // Введите имя файла с числами
  Write('Введите имя файла с числами: ');
  ReadLn(FileName);

  // Открываем файл
  AssignFile(FileHandle, FileName);
  Reset(FileHandle);

  // Введите число, с которым будем сравнивать
  Write('Введите число: ');
  ReadLn(TargetNumber);

  // Инициализируем сумму
  Sum := 0;

  // Обрабатываем каждое число из файла
  while not Eof(FileHandle) do
  begin
    ReadLn(FileHandle, NumberFromFile);

    // Если число из файла меньше заданного числа, добавляем его к сумме
    if NumberFromFile < TargetNumber then
      Sum := Sum + NumberFromFile;
  end;

  // Закрываем файл
  CloseFile(FileHandle);

  // Выводим результат
  WriteLn('Сумма чисел из файла, меньших заданного числа: ', Sum);
end.

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