Нужно написать алгоритм для нахождения НОД двух чисел в Паскале

Нужно написать метод для нахождения НОД 2-ух чисел в Паскале

Задать свой вопрос
1 ответ

var a,b: integer;

begin

readln(a,b);

while (alt;gt;0)and(blt;gt;0) do

if agt;b then a:=a mod b

else b:=b mod a;

writeln('НОД = ',a+b);

end.

Пример:

125 50

НОД = 25

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


Последние вопросы

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

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

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

Войти на сайт