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

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

Задать свой вопрос
Mishanja Chaplygin
там вообщем циклы не необходимы
Марина Соторова
а если через циклы, то для этого есть while
Вован Пивенков
Ну просто учительница задала отыскать нод через репит вайл и фор я не усвою как это через фор
Алла Аньшакова
напишите ей решение через рекурсию и скажите, что цикл for здесь не подходит, поэтому что неизвестно число итераций
Чага Владимир
Спасибо , а можете без циклов написать?
Лилия Верменич
Спасибо
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.

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт