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

@Франклин · Регистрация: 23.04.2014

Студворк — интернет-сервис помощи студентам

Нужно составить программу с подпрограммой. Составьте программу вычисления наименьшего общего кратного элементов одномерного целочисленного массива А

@APALoff · 14.05.2014, 00:29

Вот Вам функция NOK:

Pascal

Function NOD(a,b : Longint) : Longint;
  Function nd(aa,bb : Longint) : Longint;
  Begin
    If aa mod bb = 0 then nd:=bb else nd:=nd(bb,aa mod bb);
  End;
Begin
  NOD:=a;
  If a<>b then
    If a>b then NOD:=nd(a,b)
      else NOD:=nd(b,a);
End;
 
Function NOK(a,b : Longint) : Longint;
Begin
  NOK:=abs(a*b) div NOD(a,b);
End;

Теперь только добавьте массив...

@Франклин · 25.05.2014, 21:09 **[ТС]**

Помогите составить дальше программу, а то у меня что-то не получается ее путем сделать.

@Франклин 0 / 0 / 0 Регистрация: 23.04.2014 Сообщений: 8
		1
	Составьте программу вычисления наименьшего общего кратного элементов одномерного целочисленного массива А 13.05.2014, 23:25. Показов 1345. Ответов 2 Метки нет (Все метки) Нужно составить программу с подпрограммой. Составьте программу вычисления наименьшего общего кратного элементов одномерного целочисленного массива А 0

@Франклин 0 / 0 / 0 Регистрация: 23.04.2014 Сообщений: 8
	25.05.2014, 21:09 [ТС]	3
	Помогите составить дальше программу, а то у меня что-то не получается ее путем сделать. 0

Опции темы

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

Решение