Question

Найти все делители натурального числа n. решить через процедуру и функцию в паскале, помогите плиз

Answer 1

Program pr;
uses crt;

Var
i,n:integer;

  Procedure   del(a:integer);
  Var i:integer;
Begin
i:=1;

  while (a div i<>0) do
  Begin
  if (a mod i=0)
  then  Writeln(i);
  i:=i+1;
  end;

end;


Begin
Writeln('Vvedite chislo');
readln(n);
del(n);
readln;
end.

Answer 2

Чтобы найти все делители натурального числа n, можно использовать процедуру или функцию в языке программирования Паскаль. Вот пример решения через процедуру:

program FindDivisors;
var
  n, i: integer;
begin
  write('Введите натуральное число n: ');
  readln(n);
  
  writeln('Делители числа ', n, ':');
  for i := 1 to n do
  begin
    if n mod i = 0 then
      writeln(i);
  end;
end.

В этом примере мы считываем натуральное число n с помощью `readln`, а затем используем цикл `for` для перебора всех чисел от 1 до n. Внутри цикла мы проверяем, делится ли число n на текущее значение i без остатка с помощью оператора `mod`. Если деление без остатка выполняется, то i является делителем числа n, и мы выводим его на экран с помощью `writeln`.

Чтобы решить эту задачу через функцию, можно модифицировать пример следующим образом:

function FindDivisors(n: integer): string;
var
  i: integer;
  divisors: string;
begin
  divisors := '';
  for i := 1 to n do
  begin
    if n mod i = 0 then
      divisors := divisors + IntToStr(i) + ' ';
  end;
  FindDivisors := divisors;
end;

var
  n: integer;
begin
  write('Введите натуральное число n: ');
  readln(n);
  
  writeln('Делители числа ', n, ': ', FindDivisors(n));
end.

В этом примере мы определяем функцию `FindDivisors`, которая принимает натуральное число n в качестве параметра и возвращает строку, содержащую все делители числа n. Внутри функции мы используем тот же цикл и проверку, что и в предыдущем примере. Однако, вместо вывода делителей на экран, мы добавляем их к строке `divisors` с помощью оператора `+`. В конце функция возвращает эту строку.

Затем в основной части программы мы считываем натуральное число n и выводим результат работы функции `FindDivisors` на экран.

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