Question

Написати програму знаходження найбільшого спільного дільника двох натуральних чисел A i B.
Мова Паскаль.

Answer 1

Відповідь:

program GCD;

var

 A, B, temp: integer;

begin

 // Введення значень A і B з клавіатури

 writeln('Введіть натуральне число A: ');

 readln(A);

 writeln('Введіть натуральне число B: ');

 readln(B);

 // Обчислення НСД за алгоритмом Евкліда

 while B <> 0 do

 begin

   temp := B;

   B := A mod B;

   A := temp;

 end;

 // Виведення результату

 writeln('НСД чисел A і B: ', A);

 readln;

end.

Пояснення: