• ПОМОГИТЕ ПОЖАЛУЙСТА
    Составить программу нахождения наименьшего общего кратного, используя следующую формулу A*B=НОД(А,В)*НОК(А,В)
    НОК(А,В)=А*В/НОД(А,В)

Ответы 1

  • // PascalABC.NET 3.3, сборка 1611 от 06.01.2018// Внимание! Если программа не работает, обновите версию!function GCD_LCM(a,b:integer):(integer,integer);begin  var (c,d):=(a,b);  while d>0 do (c,d):=(d,c mod d); // с - НОД  Result:=(c,Trunc(a*b/c))end;begin  var (a,b):=ReadInteger2('Введите два натуральных числа:');  var (НОД,НОК):=GCD_LCM(a,b);  Writeln('НОД = ',НОД, ', НОК = ',НОК)end.ПримерВведите два натуральных числа: 36 64НОД = 4, НОК = 576
    • Автор:

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

Войти через Google

или

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

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

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