Описать нерекурсивную функцию NOD2 (A, B) целого типа, находящую наибольший общий делитель (НОД)

@Over247 · Регистрация: 17.09.2018

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

3. Описать Нерекурсивные функцию NOD2 (A, B) целого типа, находящую наибольший общий делитель (НОД) двух натуральных чисел A и B, используя алгоритм Евклида: НОД (A, B) = НОД (B mod A, A), если A <> 0; НОД (0, B) = B. С помощью этой функции найти наибольшие общие делители пар A и B, A и C, A и D, если даны числа A, B, C, D.

@Puporev · 06.06.2019, 19:37

Сообщение от Over247

НОД (A, B) = НОД (B mod A, A), если A <> 0; НОД (0, B) = B.

Это как раз рекурсивный вариант.

@Over247 · 06.06.2019, 21:51 **[ТС]**

С удовольствием бы согласился , но что преподаватель дал решить и с каким условием , тем и богаты .

@Puporev · 06.06.2019, 22:24

Pascal

function NOD2(a,b:integer):integer;
var c:integer;
begin
if a<b then//поставим большее вперед
 begin
  c:=a;
  a:=b;
  b:=c;
 end;
while b<>0 do
 begin
  c:=a mod b;
  a:=b;
  b:=c;
 end;
NOD2:=a;
end;
var a,b:integer;
begin
readln(a,b);
write(NOD2(a,b))
end.

@Over247 0 / 0 / 0 Регистрация: 17.09.2018 Сообщений: 6
		1
	Описать нерекурсивную функцию NOD2 (A, B) целого типа, находящую наибольший общий делитель (НОД) 06.06.2019, 15:24. Показов 1967. Ответов 3 Метки нет (Все метки) 3. Описать Нерекурсивные функцию NOD2 (A, B) целого типа, находящую наибольший общий делитель (НОД) двух натуральных чисел A и B, используя алгоритм Евклида: НОД (A, B) = НОД (B mod A, A), если A <> 0; НОД (0, B) = B. С помощью этой функции найти наибольшие общие делители пар A и B, A и C, A и D, если даны числа A, B, C, D. 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	06.06.2019, 19:37	2
	Сообщение от Over247 НОД (A, B) = НОД (B mod A, A), если A <> 0; НОД (0, B) = B. Это как раз рекурсивный вариант. 0

@Over247 0 / 0 / 0 Регистрация: 17.09.2018 Сообщений: 6
	06.06.2019, 21:51 [ТС]	3
	С удовольствием бы согласился , но что преподаватель дал решить и с каким условием , тем и богаты . 0

	06.06.2019, 22:24

Описать нерекурсивную функцию NOD2 (A, B) целого типа, находящую наибольший общий делитель (НОД)

Решение