Question

На языке программирования Pascal создать программу нахождения наибольшего общего делителя (НОД)

Answer 1

Алгоритм еквлида 

var x,y:integer;
begin
read(x);//первое число
read(y);//второе число
while((x-y)>0 )or((y-x)>0) do
if x>y then x:=x-y
else y:=y-x;
writeln(x);
end.

Answer 2

Программа нахождения наибольшего общего делителя (НОД) на языке программирования Pascal

Вот пример программы на языке программирования Pascal, которая находит наибольший общий делитель (НОД) двух чисел:

program GCD;

var
  a, b, remainder: integer;

begin
  // Ввод двух чисел
  write('Введите первое число: ');
  readln(a);
  write('Введите второе число: ');
  readln(b);

// Нахождение НОД
  while b <> 0 do
  begin
    remainder := a mod b;
    a := b;
    b := remainder;
  end;

// Вывод НОД
  writeln('Наибольший общий делитель (НОД) = ', a);

end.

Объяснение программы: 1. Программа запрашивает у пользователя два числа. 2. Затем она использует алгоритм Евклида для нахождения НОД двух чисел. 3. В цикле выполняются следующие действия: - Вычисляется остаток от деления первого числа на второе число. - Значение второго числа присваивается первому числу. - Значение остатка присваивается второму числу. - Эти действия повторяются до тех пор, пока второе число не станет равным нулю. 4. После завершения цикла программа выводит на экран наибольший общий делитель (НОД) двух чисел.

Пример работы программы: ``` Введите первое число: 24 Введите второе число: 36 Наибольший общий делитель (НОД) = 12 ```

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