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 выдаёт всегда простые числа..