Форум программистов, компьютерный форум CyberForum.ru

Pascal (Паскаль)

Войти
Регистрация
Восстановить пароль
 
Рейтинг: Рейтинг темы: голосов - 57, средняя оценка - 4.98
mkil
1 / 1 / 0
Регистрация: 26.10.2009
Сообщений: 24
#1

взаимно простые числа - Pascal

26.10.2009, 17:43. Просмотров 7657. Ответов 7
Метки нет (Все метки)

Определить, являються ли два заданых числа взаимо простыми(взаимо простые числа не имеют обших делителей,кроми единицы)

Добавлено через 24 минуты
помогите плис
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.10.2009, 17:43     взаимно простые числа
Посмотрите здесь:

взаимно простые числа - Pascal
числа, у которых НОД (наибольший общий делитель) равен 1, наз-ся взаимно-простыми. Найти все взаимно простые числа на отрезке . ммм,...

Даны целые числа p и q. Получить все делители числа q, взаимно простые с p, т.е. не имеющие с p общих делителей. - Pascal
Даны целые числа p и q. Получить все делители числа q, взаимно простые с p, т.е. не имеющие с p общих делителей. Есть в C++ она у вас...

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

Даны натуральные взаимно простые числа n,p. - Turbo Pascal
Даны натуральные взаимно простые числа n,p. Найти m такое, что, во-первых, m<p, во-вторых, произведение чисел m и n при делении на р даёт...

Получить все натуральные числа, меньшие N и взаимно простые с p - Turbo Pascal
Даны натуральные числа N и p. получить все натуральные числа, меньшие N и взаимно простые с p Добавлено через 17 минут Прашу вас с...

Найти все делители числа Q, взаимно простые с числом R - Pascal ABC
Найти все делители числа Q, взаимно простые с числом R.

Получить все натуральные числа, меньшие n и взаимно простые с ним - Turbo Pascal
Дано натуральное число n. Получить все натуральные числа, меньшие n и взаимно простые с ним (два натуральных числа называются взаимно...

После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Puporev
Модератор
51761 / 39692 / 13104
Регистрация: 18.05.2008
Сообщений: 90,761
26.10.2009, 17:49     взаимно простые числа #2
См. здесь.
Получить все делители числа
mkil
1 / 1 / 0
Регистрация: 26.10.2009
Сообщений: 24
26.10.2009, 17:56  [ТС]     взаимно простые числа #3
мне надо без масива
odip
Эксперт С++
7157 / 3297 / 59
Регистрация: 17.06.2009
Сообщений: 14,164
26.10.2009, 18:34     взаимно простые числа #4
мне надо без масива
А где про это в условии написано ?
Puporev
Модератор
51761 / 39692 / 13104
Регистрация: 18.05.2008
Сообщений: 90,761
26.10.2009, 18:40     взаимно простые числа #5
мне надо без масива
Так тебя никто и не заставляет массив делать, тебя к алгоритму отправили, как найти взаимно простые числа. Спиши функцию определения НОД, потом вводишь 2 числа и пишешь
if func(a,b)=1 then взаимно простые
else нет
mkil
1 / 1 / 0
Регистрация: 26.10.2009
Сообщений: 24
26.10.2009, 18:41  [ТС]     взаимно простые числа #6
просто ето тема до масимов и там просто надо вывести взаимопростое или нет
Puporev
Модератор
51761 / 39692 / 13104
Регистрация: 18.05.2008
Сообщений: 90,761
26.10.2009, 18:47     взаимно простые числа #7
Сообщение было отмечено автором темы, экспертом или модератором как ответ
До чего все тупые и ленивые, по готовому написать не могут.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
uses crt;
var a,b:word;
function NOD(m,n:integer):integer;
begin
while m<>n do
if m>n then m:=m-n else n:=n-m;
NOD:=m;
end;
begin
clrscr;
write('a=');readln(a);
write('b=');readln(b);
writeln;
if NOD(a,b)=1 then write('Эти числа взаимно простые!')
else write('Эти числа не являются взаимно простыми!');
readln
end.
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
26.10.2009, 18:58     взаимно простые числа
Еще ссылки по теме:

Получить все натуральные числа, меньшие n и взаимно простые с ним - Free Pascal
Дано натуральное число n. Получить все натуральные числа, меньшие n и взаимно простые с ним (два натуральных числа называются взаимно...

Получить все натуральные числа, меньшие n и взаимно простые с ним - Pascal
Составьте программу для решения одной из следующих задач: Дано натуральное число n. Получить все натуральные числа, меньшие n и...

Для натурального числа N найти все взаимно простые для него числа в диапазоне [a, b] - Free Pascal
Для натурального числа N найти все взаимно простые для него числа в диапазоне , где a, b∈ N, a&lt;b. Написать подпрограмму для расчета ...

Дано натуральное число n. Получить все натуральные числа меньше n и взаимно простые с ним - Turbo Pascal
дано натуральное число n. получить все натуральные числа меньшие n и взаимно простые с ним с помощью цикла repead

Дано натуральное число n. Получить все натуральные числа меньше n и взаимно простые с ним - PascalABC.NET
дано натуральное число n .Получить все натуральные числа меньше n и взаимно простые с ним. Добрый Умные люди помогите плиз новичку! ...


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

Или воспользуйтесь поиском по форуму:
mkil
1 / 1 / 0
Регистрация: 26.10.2009
Сообщений: 24
26.10.2009, 18:58  [ТС]     взаимно простые числа #8
Благадарю
Yandex
Объявления
26.10.2009, 18:58     взаимно простые числа
Ответ Создать тему
Опции темы

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