Question

Найти НОД чисел 2n+13 и n+7, где n целое число, вводимое с клавиатуры. Написать программу на Паскале Спасибо!!!))

Answer 1

var

 a,i,n: integer;

begin

 readln(n);

 for i := 1 to n+7 do

   if (abs(n+7) mod i = 0) and (abs(2*n+13) mod i = 0) then  

     a := i;

 if a<>0 then writeln(a)

   else writeln('error');

end.

Вообще при 2n+13 и n+7 всегда максимум будет 1. 2n+13 выдаёт всегда простые числа..

Answer 2

Конечно, вот программа на языке Паскаль для нахождения НОД чисел $2n + 13$ и $n + 7$:

pascalCopy code
program GCDCalculation;

var
  n, a, b, temp: integer;

function GCD(a, b: integer): integer;
begin
  if b = 0 then
    GCD := a
  else
    GCD := GCD(b, a mod b);
end;

begin
  write('Введите значение n: ');
  readln(n);

  a := 2 * n + 13;
  b := n + 7;

  if a < 0 then
    a := -a;  // Используем модуль, так как НОД не может быть отрицательным

  if b < 0 then
    b := -b;

  if a < b then
  begin
    temp := a;
    a := b;
    b := temp;
  end;

  writeln('Числа: ', a, ' и ', b);
  writeln('НОД чисел: ', GCD(a, b));
end.

Пожалуйста, обратите внимание, что программа использует рекурсивную функцию GCD для вычисления наибольшего общего делителя (НОД).