Даны натуральный числа x и y. получить все делители числа x, взаимно простые с y. Паскаль
Ответы:
26-02-2019 00:57
//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
Также наши пользователи интересуются:
She.........work in an office.she work in an plane. a)isn`t b)aren`t c)m not d)doesn`t e)or dont Помогите пожалуйста. Однажды Ксеркс в гневе заметил, что людей у персов много, а мужей среди них мало. Что означают эти слова царя? Предположите, когда и почему он мог
⭐⭐⭐⭐⭐ Лучший ответ на вопрос «Даны натуральный числа x и y. получить все делители числа x, взаимно простые с y. Паскаль » от пользователя Дашка Крысова в разделе Информатика. Задавайте вопросы и делитесь своими знаниями.
Открой этот вопрос на телефоне - включи камеру и наведи на QR-код!