Найти НОД 3 чисел при помощи алгоритма Евклида

alex9 · 19.05.2013, 17:23

1)Найти НОД 3 чисел при помащи алгоритма Евклида
2)Найти НОК 2 чисел
3)Найти НОК 3 чисел при помщи алгоритма Евклида для нахождения НОД 2 чисел

Léon · 19.05.2013, 19:35

Язык программирования?

Gruvi · 19.05.2013, 20:39

НОД.

Цитата:

uses crt;
function Nod(a,b:integer):integer;{определение НОД двух чисел}
begin
while a<>b do
if a>b then a:=a-b else b:=b-a;
Nod:=a;
end;

var a:array[1..100] of integer;
n,i:byte;
k:integer;
begin
clrscr;
write('Введите кол-во элементов n=');
readln(n);
writeln('Введите элементы массива: ');
for i:=1 to n do
begin
write('a[',i,']=');
readln(a[i]);
end;
clrscr;
writeln('Массив:');
for i:=1 to n do
write(a[i],' ');
writeln;
k:=Nod(a[1],a[2]);
for i:=3 to n do k:=nod(k,a[i]);
writeln('Общий НОД всех элементов=',k);
readln
end.

НОК

Цитата:

uses crt;
function NOD(x,y:integer):integer;
Begin
If x<>0 then NOD:=NOD(y mod x,x) else NOD:=y;
End;
function NOK(x,y:integer):integer;
Begin
NOK:=(x div NOD (x,y))*y;
end;
var a:array[1..100] of integer;
n,i:byte;
k:integer;
begin
clrscr;
write('Введите кол-во элементов n=');
readln(n);
writeln('Введите элементы массива: ');
for i:=1 to n do
begin
write('a[',i,']=');
readln(a[i]);
end;
clrscr;
writeln('Массив:');
for i:=1 to n do
write(a[i],' ');
writeln;
k:=NOK(a[1],a[2]);
for i:=3 to n do k:=NOK(k,a[i]);
writeln('Общий НОK всех элементов=',k);
readln
end.

Т.к. язык не указан. написал на pascal.

19.05.2013, 17:23	#1 (permalink)
alex9 Новичок Регистрация: 18.05.2013 Сообщений: 6 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Найти НОД 3 чисел при помощи алгоритма Евклида 1)Найти НОД 3 чисел при помащи алгоритма Евклида 2)Найти НОК 2 чисел 3)Найти НОК 3 чисел при помщи алгоритма Евклида для нахождения НОД 2 чисел

19.05.2013, 17:23
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Отправлю вам топики, которые аналогичны вашей теме Вывести список положительных чисел, список отрицательных чисел на C# Найти наименьшее из чисел на С#

19.05.2013, 19:35	#2 (permalink)
Léon С# - learn or die Регистрация: 17.12.2011 Сообщений: 2,438 Записей в дневнике: 8 Сказал(а) спасибо: 21 Поблагодарили 49 раз(а) в 11 сообщениях Репутация: 19701	Язык программирования?

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070