6 / 6 / 0
Регистрация: 20.03.2011
Сообщений: 67
1

Взаимно простые числа

03.04.2011, 18:41. Показов 15280. Ответов 6
Метки нет (Все метки)

Нужно составить программу, проверяющую, являются ли три числа взаимно простыми.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
03.04.2011, 18:41
Ответы с готовыми решениями:

Взаимно простые числа
Написать код который создаёт логический массив a размером NxN такой, что а = true, ecли i и j...

Найти взаимно простые числа
Нужно сгенерировать число простое и в то же время взаимно простое с fi private void...

Получить все делители числа, взаимно простые с р
Решите задачу: Даны целые числа n и m. Получить все делители числа m, взаимно простые с р.

Получить все делители числа q, взаимно простые с p
Даны целые числа p и q. Получить все делители числа q, взаимно простые с p. помогите решить...

6
98 / 99 / 16
Регистрация: 30.03.2011
Сообщений: 350
03.04.2011, 19:08 2
а где наработки?
0
6 / 6 / 0
Регистрация: 20.03.2011
Сообщений: 67
03.04.2011, 19:14  [ТС] 3
Пытался сделать сначала метод для НОД, но в итоге для трёх не получается, только для двух по алгоритму Евклида
вот примерно так хотел сделать для трёх(дальше не представляю как делать):
Код
 static int nod(int n,int m)
{  
{ var p=n%m;
while (p!=0) 
{ n=m; 
m=p; 
p=n%m; 
}
return m; 
}
Есть ещё код на Паскале, но Паскалем я вообще не владею...могу выложить, если поможет
0
6242 / 3543 / 898
Регистрация: 28.10.2010
Сообщений: 5,926
03.04.2011, 19:30 4
Помогу. Выкладывай.
0
6 / 6 / 0
Регистрация: 20.03.2011
Сообщений: 67
03.04.2011, 19:36  [ТС] 5
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
uses crt;
function NOD(a,b:integer):integer;{рекурсивная функция определения НОД двух чисел}
begin
if a=b then NOD:=a
else if a>b then NOD:=NOD(a-b,b)
else NOD:=NOD(b-a,a);
end;
var a,b,c:integer;
begin
clrscr;
writeln('Введите три целых числа:');
readln(a,b,c);
if NOD(NOD(a,b),c)=1 then{двойной выхов функции}
write('Числа взаимно простые!')
else write('Числа взаимно не простые!');
readln
end.
0
6242 / 3543 / 898
Регистрация: 28.10.2010
Сообщений: 5,926
03.04.2011, 19:46 6

Не по теме:

В паскале с рекурсией работал два года назад и всего один раз. возможны ошибки


C#
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
 
class Program
{
    public static int NOD(int a, int b)
    {
        if (a == b) 
            return a;
        else 
            if (a > b)
                return NOD(a-b, b);
            else 
                return NOD(b-a, a);
    }
    static void Main(string[] args)
    {
        Random rand = new Random();
        int a = rand.Next(0, 50);
        int b = rand.Next(0, 50);
        int c = rand.Next(0, 50);
        /* так для проверки
         * a = 1;
        b = 2;
        c = 3;*/
        if (NOD(NOD(a, b), c) == 1)
            Console.WriteLine("Числа {0}, {1}, {2} взаимно простые", a, b, c);
        else
            Console.WriteLine("Числа {0}, {1}, {2} не взаимно простые", a, b, c);
        Console.ReadKey(true);
    }
}
2
6 / 6 / 0
Регистрация: 20.03.2011
Сообщений: 67
03.04.2011, 19:52  [ТС] 7
Петррр, спасибо большое!!! Всё работает! Теперь буду разбираться)))
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
03.04.2011, 19:52

Надо получить все делители числа q, взаимно простые с p
Условие задачи такое: Даны целые числа p и q. Получить все делители числа q, взаимно простые с p. ...

Получить все натуральные числа, меньшие n и взаимно простые с ним
Собственно говоря не могу написать код вот для этой задачи: "Дано натуральное число n. Получить все...

Определить, являются ли два заданных числа взаимно простыми
Определить, являются ли два заданных числа взаимно простыми. сам нашел кое что, только нужно...

Найти все простые числа, не превосходящие заданного числа N. Проверить код
Найти все простые числа, не превосходящие заданного числа N надо сделать в C# консоль Посмотрите...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
7
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.