Вычисление наименьшего общего кратного элементов массива до первого нулевого элемента

@ia-12 · Регистрация: 04.12.2014

Составьте программу вычисления наименьшего общего кратного элементов целочисленного массива A(N), что расположены перед первым нулевым элементом данного массива.

@APALoff · 12.04.2015, 23:42

Pascal

Function NOD(a,b : Longint) : Longint;
Begin
  If (a mod b)=0 then NOD:=b else Nod:=NOD(b,a mod b);
end;
 
Function NOK(a,b : Longint) : Longint;
Begin
  NOK:=abs(a*b) div NOD(a,b);
End;
 
Const N = 5;
Var
  A : array[1..N] of Word;
  i : Byte;
 
Function NOKmas(k : Byte) : Longint;
Begin
  If k>0 then NOKmas:=NOK(A[k],NOKmas(k-1)) else NOKmas:=1;
end;
 
Begin
  For i:=1 to N do
  Begin
    A[i]:=Random(10)+1;
    Write(A[i],' ');
  end;
  Writeln;
  Writeln('НОК массива: ',NOKmas(N));
End.

@ia-12 0 / 0 / 0 Регистрация: 04.12.2014 Сообщений: 16
		1
	Вычисление наименьшего общего кратного элементов массива до первого нулевого элемента 12.04.2015, 22:02. Показов 1525. Ответов 1 Метки нет (Все метки) Составьте программу вычисления наименьшего общего кратного элементов целочисленного массива A(N), что расположены перед первым нулевым элементом данного массива. __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

Опции темы

Вычисление наименьшего общего кратного элементов массива до первого нулевого элемента

Решение