Вычислить наибольший общий делитель 2-ух естественных чисел А и В используя

Вычислить наивеличайший общий делитель двух естественных чисел А и В используя цикл с постусловием

Задать свой вопрос
1 ответ
Var  a, b, n: integer;
begin
 writeln ('Введите два числа: ');
 readln (a, b);
 repeat
  if a gt; b then a := a mod b
           else b := b mod a;
 until (a = 0) or (b = 0);
 n := a+b;
 writeln ('НОД = ', n);
end.

Пример:
125 50
НОД = 25
Варвара Бекмансурова
Огромное спасибо!
Vitek Kuzmidi
Пожалуйста.
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

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

Войти на сайт