• Даны n целых чисел. Требуется найти их НОД и НОК. Нужно написать программу на Pascal, помогите пожалуйста.

Ответы 2

  • Var A:array[1..10000] of integer;i,NOD,NOK,k,N:integer;BeginWrite('N = ');ReadLn(N);Write('Введите числа (',N,' шт.): ');For i:= 1 to N do    Read(A[i]);{Поиск НОК}NOK:=abs(A[1]);For i:= 2 to N do    if abs(A[i])<NOK then NOK:=abs(A[i]);if NOK = 0 then NOK:=1;Repeatk:=0;For i:= 1 to N do    if A[i] mod NOK = 0 then k:=k+1;NOK:=NOK-1;Until k=N;WriteLn('NOK = ',NOK+1);{Поиск НОД}NOD:=A[1];For i:= 2 to N do    if abs(A[i])>NOD then NOD:=A[i];Repeatk:=0;For i:= 1 to N do    if NOD mod A[i] = 0 then k:=k+1;NOD:=NOD+1;Until k=N;WriteLn('NOD = ',NOD-1)End.
    • Автор:

      jerry83
    • 5 лет назад
    • 0
  • function NOD(a, b: integer):integer;beginwhile a<>b do if a>b then a-=b else b-=a;result:=a;end;beginvar n:=readinteger('N =');var a:=ReadArrInteger('Вводите: ', n);var prod1:=1; var prod:=a[0]; var nod1:=a[0];for var i:=1 to n-1 do beginnod1:=NOD(nod1, a[i]);prod*=a[i];end;for var i:=0 to n-2 do for var j:=i+1 to n-1 do prod1*=NOD(a[i], a[j]);write ('НОК: ', prod div prod1, '; НОД: ', nod1);end.
    • Автор:

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

Войти через Google

или

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

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

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