Даны натуральный числа x и y. получить все делители числа x, взаимно простые с y. Паскаль

  • 02-02-2007 23:13
  • Просмотры: 11
Ответы ( 1 )
evelina Vovchuk
+1
03-02-2007 03:21

//Pascal ABC.NET 3.1 сборка 1219 Var x,y,i:integer; function nod(x,y:integer):integer; begin while x*y<>0 do if x>y then x:=x mod y else y:=y mod x; nod:=x+y; end; begin readln(x,y); for i:=1 to x div 2 do if (x mod i=0) and (nod(i,y)=1) then writeln(i); end. Пример ввода: 15 27 Пример вывода: 1 5

Похожие вопросы