Как найти общий делитель? - Общие вопросы Delphi

Xcopy · 13.09.2009, 17:05

20 5
-- должен привести к ---
8 2
Для этого надо все делить на общий делитель)))

ОДИНОЧЕСТВО В СЕТИ · 13.09.2009, 17:07

Код:

function nod(x,y:integer):integer; 
var r:integer;
begin repeat
r:=x mod y; x:=y; y:=r;
until y=0; nod:=x;end;

сто раз было!!!!!!

Xcopy · 13.09.2009, 17:53

Цитата:

сто раз было!!!!!!

сори =)))

13.09.2009, 17:05	#1
Xcopy Форумчанин Регистрация: 03.02.2009 Сообщений: 126	Как найти общий делитель? 20 5 -- должен привести к --- 8 2 Для этого надо все делить на общий делитель)))

13.09.2009, 17:07	#2
ОДИНОЧЕСТВО В СЕТИ Любопытная Вредина Участник клуба Регистрация: 19.06.2009 Сообщений: 1,285	Код: `function nod(x,y:integer):integer; var r:integer; begin repeat r:=x mod y; x:=y; y:=r; until y=0; nod:=x;end;` сто раз было!!!!!! Дурь - это особая форма материи, которая не возникает ниоткуда и не исчезает никуда, а лишь переходит из одной головы в другую.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Составить прогамму, отысивающую наименьший общий составной делитель натуральных чисел N и M. Paskal	Frontier	Помощь студентам	7	16.12.2014 14:01
Определить из наибольший общий делитель, используя функцию нахождения общего делителя.	Igomax	Помощь студентам	6	23.05.2009 19:41
наибольший общий делитель	Ge0rGE	Помощь студентам	12	03.05.2009 20:09
Наименьший общий делитель	Witaliy	Помощь студентам	11	25.03.2009 13:20
Найти сумму ряда с точностью e, если дан общий член этого ряда	JiLiYa	Общие вопросы C/C++	2	18.02.2009 11:11