Получить все натуральные числа, меньшие n и взаимно простые с ним

@akalinin · Регистрация: 20.01.2015

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

Дано натуральное число n. Получить все натуральные числа, меньшие n и взаимно простые с ним (два натуральных числа называются взаимно простыми, если их наибольший общий делитель равен 1).

@CodeR · 09.02.2015, 11:30

Pascal

var
  n, i: integer;
 
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;
 
begin
  write('N: ');readln(n);
  for i := 1 to n - 1 do
    if Nod(n, i) = 1 then write(i, ' ');
  readln;
end.

@akalinin 0 / 0 / 0 Регистрация: 20.01.2015 Сообщений: 35
		1
	Получить все натуральные числа, меньшие n и взаимно простые с ним 08.02.2015, 20:56. Показов 1939. Ответов 1 Метки нет (Все метки) Дано натуральное число n. Получить все натуральные числа, меньшие n и взаимно простые с ним (два натуральных числа называются взаимно простыми, если их наибольший общий делитель равен 1). 0

	09.02.2015, 11:30

Опции темы

Получить все натуральные числа, меньшие n и взаимно простые с ним

Решение