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

Pascal (Паскаль)

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

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

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

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

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

Turbo Pascal Получить меньшие числа и взаимно простые
Даны целые числа p и q. Получить все делители числа q, взаимно простые с p, т.е. не имеющие с p общих делителей. Pascal
Pascal взаимно простые числа
Даны натуральные взаимно простые числа n,p. Turbo Pascal
Получить все натуральные числа, меньшие n и взаимно простые с ним Turbo Pascal
Получить все натуральные числа, меньшие n и взаимно простые с ним Pascal
Дано натуральное число n. Получить все натуральные числа меньше n и взаимно простые с ним Turbo Pascal
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Puporev
Модератор
51332 / 39263 / 12881
Регистрация: 18.05.2008
Сообщений: 89,559
26.10.2009, 17:49     взаимно простые числа #2
См. здесь.
Получить все делители числа
mkil
1 / 1 / 0
Регистрация: 26.10.2009
Сообщений: 24
26.10.2009, 17:56  [ТС]     взаимно простые числа #3
мне надо без масива
odip
Эксперт С++
7155 / 3295 / 59
Регистрация: 17.06.2009
Сообщений: 14,164
26.10.2009, 18:34     взаимно простые числа #4
мне надо без масива
А где про это в условии написано ?
Puporev
Модератор
51332 / 39263 / 12881
Регистрация: 18.05.2008
Сообщений: 89,559
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
Модератор
51332 / 39263 / 12881
Регистрация: 18.05.2008
Сообщений: 89,559
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     взаимно простые числа
Еще ссылки по теме:

Turbo Pascal Найти все трехзначные простые числа. Определить функцию, позволяющую распознавать простые числа
Turbo Pascal Получить все натуральные числа, меньшие N и взаимно простые с p
Найти все делители числа Q, взаимно простые с числом R Pascal ABC
Дано натуральное число n. Получить все натуральные числа меньше n и взаимно простые с ним PascalABC.NET
Free Pascal Получить все натуральные числа, меньшие 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