Задать вопрос Регистрация
Помочь другим

  • Составьте программу нахождения наибольшего общего делителя трёх чисел,используя следующую формулу:
    НОД(A,B,C)=НОД(НОД(A,B),C).

    Нужно на паскале

     

     

Ответы 1

  • var  a, b, c:integer;begin  write('a = '); readln(a);  write('b = '); readln(b);  write('c = '); readln(c);  write('НОД(', a, ', ', b, ', ', c, ') = ');  while (a <> 0) and (b <> 0) do    if a >= b then      a := a mod b    else      b := b mod a;  a := a + b;  while (c <> 0) and (a <> 0) do    if a >= c then      a := a mod c    else      c := c mod a;  writeln(a + c);end.

  • Добавить свой ответ

Еще вопросы

Топ пользователей

Войти через Google

 или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years