Написать функцию нахождения наибольший общий делителя двух натуральных чисел.

[_-Re@l-_]

Я нашел причину. Не работает только в turbo pascal 7.1. В ВР 7 все прекрасно работает

[Don Karleone]

Сообщение от _-Re@l-_

Я нашел причину. Не работает только в turbo pascal 7.1. В ВР 7 все прекрасно работает

в Delphi запускал.

[_-Re@l-_]

Тоже запустил в делфи. Сделал приложение, в обработчик кнопки добавил вызов функции нод, ничего не виснет, ответ нормально выдает.

[_-Re@l-_]

Прошу прощения,допустил небольшую ошибку при которой программа работает лишь для некоторых случаев.Вот правильный код:

Function NOD(M,N:Integer):Integer;
Begin
        While M<>N Do
        Begin
                If M>N Then M:=M-N
                Else N:=N-M;
        End;
        Nod:=M;
End;

[DrDre9991]

напишите пожалйста полность прогу!!!

[_-Re@l-_]

Ну как-то так:

Uses CRT;
Function NOD(M,N:Integer):Integer;
Begin
        While M<>N Do
        If M>N Then M:=M-N Else N:=N-M;
        NOD:=M;
End;
Var
     X,Y,N:Integer;
Begin
        Clrscr;
        Write('X = ');
        Readln(X);
        Write('Y = ');
        Readln(Y);
        N:=NOD(X,Y);
        Write('NOD = ',N);
        Readln;
End.

[DrDre9991]

спасиб огромное !!!!