• Используя подпрограмму-функцию , вычисляющую НОД двух чисел , составьте подпрограмму-функцию для вычисления НОД трех целых чисел . Помогите пожалуйста очень срочно нужно!!!

Ответы 3

  • Спасибо
    • Автор:

      cándida
    • 6 лет назад
    • 0
  • Пожалуйста
    • Автор:

      bartlett
    • 6 лет назад
    • 0
  • // PascalABC.NET 3.2, сборка 1346 от 25.11.2016// Внимание! Если программа не работает, обновите её версию!function gcd(a,b:integer):integer;begin  while b<>0 do   begin    a:=a mod b;    (a,b):=(b,a);  end;  Result:=aend;function gcd3(a,b,c:integer):=gcd(gcd(a,b),c);begin  Writeln('НОД(138,48,312)=',gcd3(138,48,312))end.ПримерНОД(138,48,312)=6
    • Автор:

      amy
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

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

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

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