Question

Можно программу на языке паскаль, пожалуйста? ":) Составить программу нахождения суммы всех делителей заданного натурального числа N. (Само число и единица включаются в число делителей.) Формат входных данных Входной файл содержит число N (1≤N≤1000). Формат выходных данных Выведите искомую сумму. Примеры: Вход 3 Выход 4

Answer 1

Ответ:

var sum,i,N:integer; t,t1:text;

begin

 assign (t, 'input.txt'); reset(t);

 assign (t1, 'output.txt'); rewrite(t1);

read(t,N);

sum:=0;

for i:=1 to N do

 if N mod i = 0 then sum:= sum+i;

write(t1,sum);

close(t1)

end.

Answer 2

Конечно, вот программа на языке Pascal для нахождения суммы всех делителей заданного натурального числа N:

pascalCopy code
program SumOfDivisors;

var
  N, i, sum: integer;

begin
  // Вводим число N
  readln(N);

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

  // Проходим через все числа от 1 до N и проверяем, является ли оно делителем N
  for i := 1 to N do
  begin
    if N mod i = 0 then
      sum := sum + i; // Если i является делителем N, добавляем его к сумме
  end;

  // Выводим сумму делителей
  writeln(sum);
end.

Вы можете сохранить этот код в файле с расширением ".pas" и скомпилировать его с помощью компилятора Pascal, чтобы выполнить программу. После запуска программы, введите значение N, как в вашем примере, и программа выведет сумму всех делителей этого числа.