Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal (Паскаль)

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

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

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

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

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

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

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

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

Вывести взаимно простые с суммой своих цифр - Pascal
Объясните пожалуйста, алгоритм данного задания

Определить являются ли два числа взаимно простыми - Pascal
Написать функцию в которой 2 числа называются простыми, если имеют один общий делитель- единицу

Определить, имеются ли в массиве взаимно обратные числа - Pascal
Пожайлуста омогите с програмкой. Определить, имеются ли в массиве взаимно обратные числа.

7
Puporev
Модератор
52389 / 40236 / 13575
Регистрация: 18.05.2008
Сообщений: 92,996
26.10.2009, 17:49 #2
См. здесь.
Получить все делители числа
0
mkil
1 / 1 / 0
Регистрация: 26.10.2009
Сообщений: 24
26.10.2009, 17:56  [ТС] #3
мне надо без масива
0
odip
Эксперт С++
7159 / 3221 / 59
Регистрация: 17.06.2009
Сообщений: 14,164
26.10.2009, 18:34 #4
мне надо без масива
А где про это в условии написано ?
0
Puporev
Модератор
52389 / 40236 / 13575
Регистрация: 18.05.2008
Сообщений: 92,996
26.10.2009, 18:40 #5
мне надо без масива
Так тебя никто и не заставляет массив делать, тебя к алгоритму отправили, как найти взаимно простые числа. Спиши функцию определения НОД, потом вводишь 2 числа и пишешь
if func(a,b)=1 then взаимно простые
else нет
0
mkil
1 / 1 / 0
Регистрация: 26.10.2009
Сообщений: 24
26.10.2009, 18:41  [ТС] #6
просто ето тема до масимов и там просто надо вывести взаимопростое или нет
0
Puporev
Модератор
52389 / 40236 / 13575
Регистрация: 18.05.2008
Сообщений: 92,996
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.
5
mkil
1 / 1 / 0
Регистрация: 26.10.2009
Сообщений: 24
26.10.2009, 18:58  [ТС] #8
Благадарю
0
26.10.2009, 18:58
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
26.10.2009, 18:58
Привет! Вот еще темы с ответами:

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

Определить, являются ли данные три числа взаимно простыми - Pascal
А8. Последовательность действительных чисел оканчивается нулем. Найти количество членов этой последовательности. Д8. Проверить, являются...

Даны натуральные числа a,b. Получить все простые числа p, удовлетворяющие неравенствам: a<=p<=b - Pascal
Даны натуральные числа a,b(a&lt;b). Получить все простые числа p, удовлетворяющие неравенствам: a&lt;=p&lt;=b.

Даны натуральные числа a и b. Получите все простые числа большие a и меньшие b - Pascal
даны натуральные числа a и b. Получите все простые числа большие a и меньшие b. Объясните как найти простые числа?а то я совсем не поняла...


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

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

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