Как найти НОД через оператор for ? Помогите плиииз!!

Question

Как найти НОД через оператор for ? Помогите плиииз!!

Comments

там вообще циклы не нужны

---

а если через циклы, то для этого есть while

---

Ну просто учительница задала найти нод через репит вайл и фор я не пойму как это через фор

---

напишите ей решение через рекурсию и скажите, что цикл for тут не подходит, потому что неизвестно число итераций

---

Спасибо , а можете без циклов написать?

---

Спасибо

Answer 1

function GCD(a, b: integer): integer;

begin

 if b = 0 then

   Result := a

 else

   Result := GCD(b, a mod b)

end;

var

 a, b: integer;

begin

 Read(a, b);

 Write(GCD(a, b));

end.