Question

Дан файл из чисел. Создать второй файл из чисел первого файла, у которых сумма цифр находится в пределе от 12 до 34. Pascal

Answer 1

Var 
f1,f2:file of integer; k,m,s:integer;
begin
assign(f1,'f1.dat'); reset(f1);
assign(f2,'f2.dat'); rewrite(f2);
while not eof(f1) do
begin
read(f1,k);
s:=0;m:=k;
while m>0 do begin s:=s+m mod 10; m:=m div 10; end;
if (s>12)and(s<34) then write(f2,k);
close(f1); close(f2);
end.

Answer 2

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

program FilterNumbers;

var
  inputFile, outputFile: text;
  number, sum, digit: integer;

function CalculateDigitSum(num: integer): integer;
begin
  // Функция для вычисления суммы цифр числа
  Result := 0;
  while num > 0 do
  begin
    digit := num mod 10;
    Result := Result + digit;
    num := num div 10;
  end;
end;

begin
  // Открываем файл для чтения
  assign(inputFile, 'input.txt');
  reset(inputFile);

// Открываем файл для записи
  assign(outputFile, 'output.txt');
  rewrite(outputFile);

// Читаем числа из файла и фильтруем их
  while not eof(inputFile) do
  begin
    read(inputFile, number);
    sum := CalculateDigitSum(number);

// Проверяем условие на сумму цифр
    if (sum >= 12) and (sum <= 34) then
      writeln(outputFile, number);
  end;

// Закрываем файлы
  close(inputFile);
  close(outputFile);
end.

Обратите внимание, что этот код предполагает, что входные числа находятся в файле "input.txt", а результат будет записан в файл "output.txt". Вы можете изменить имена файлов, а также пути к ним в соответствии с вашими потребностями.

Этот код открывает файл для чтения, читает числа, вычисляет сумму и фильтрует числа в соответствии с заданным условием (сумма цифр от 12 до 34), записывая результат в новый файл.