Question

Решите пожалуйста задачу на PascalABC 1. Напишите функцию поиска НОД двух целых чисел. Примените составленную функцию для поиска наибольшего общего делителя N целых чисел (2 < N < 10).

Answer 1

// файл и картинка посмотреть

Answer 2

Конечно, вот решение на PascalABC:

scssCopy code
program GCD;

// Функция для нахождения НОД двух чисел
function FindGCD(a, b: Integer): Integer;
begin
  if b = 0 then
    Result := a
  else
    Result := FindGCD(b, a mod b);
end;

var
  N, i, a, b, gcd: Integer;
begin
  // Ввод количества чисел
  write('Введите количество чисел: ');
  readln(N);

  // Ввод первых двух чисел и нахождение их НОД
  write('Введите первое число: ');
  readln(a);
  write('Введите второе число: ');
  readln(b);
  gcd := FindGCD(a, b);

  // Ввод остальных чисел и нахождение их НОД с предыдущим НОДом
  for i := 3 to N do
  begin
    write('Введите число: ');
    readln(a);
    gcd := FindGCD(gcd, a);
  end;

  // Вывод результата
  writeln('Наибольший общий делитель: ', gcd);
end.

Сначала мы определяем функцию FindGCD, которая находит НОД двух чисел. Затем мы запрашиваем у пользователя количество чисел, вводим первые два числа и находим их НОД. Затем мы вводим оставшиеся числа и находим их НОД с предыдущим НОДом. В конце мы выводим результат.