Форум программистов, компьютерный форум CyberForum.ru
CyberForum.ru - форум программистов и сисадминов > >
Восстановить пароль Регистрация

Ответ Создать новую тему
 
mkil
Новичок
1 / 1 / 0
Регистрация: 26.10.2009
Сообщений: 24
26.10.2009, 17:43     взаимно простые числа
  #1
Определить, являються ли два заданых числа взаимо простыми(взаимо простые числа не имеют обших делителей,кроми единицы)

Добавлено через 24 минуты
помогите плис
Лучшие ответы (1)
AdAgent
Объявления
26.10.2009, 17:43
Puporev
Модератор
42375 / 30889 / 1856
Регистрация: 18.05.2008
Сообщений: 65,844
26.10.2009, 17:49
  #2
См. здесь.
Вложенные циклы
mkil
Новичок
1 / 1 / 0
Регистрация: 26.10.2009
Сообщений: 24
26.10.2009, 17:56  [ТС]
  #3
мне надо без масива
odip
Форумчанин
Эксперт C++
7204 / 3272 / 41
Регистрация: 17.06.2009
Сообщений: 14,303
26.10.2009, 18:34
  #4
мне надо без масива
А где про это в условии написано ?
Puporev
Модератор
42375 / 30889 / 1856
Регистрация: 18.05.2008
Сообщений: 65,844
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
Модератор
42375 / 30889 / 1856
Регистрация: 18.05.2008
Сообщений: 65,844
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.
mkil
Новичок
1 / 1 / 0
Регистрация: 26.10.2009
Сообщений: 24
26.10.2009, 18:58  [ТС]     взаимно простые числа
  #8
Благадарю
Yandex
Объявления
26.10.2009, 18:58
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать новую тему

Похожие темы
Тема Раздел Ответов Автор Дата
Turbo Pascal Взаимно простые числа
Здравстуйте! У меня есть задание. Написать программу проверки введенные два числа взаимно простыми. Запретите программно вводить числа меньше 10 Program Vzaim_prost; var a,b : integer; begin...
Turbo Pascal 2 uVazikPazik 31.03.2014 09:53
Turbo Pascal Получить все натуральные числа, меньшие N и взаимно простые с p
Даны натуральные числа N и p. получить все натуральные числа, меньшие N и взаимно простые с p Добавлено через 17 минут Прашу вас с комментариями к программе, чтоб хотя бы что то у меня в голове...
Turbo Pascal 4 kozlov 06.04.2013 12:11
Turbo Pascal Взаимно простые числа
Дано натуральное число n. Получить все натуральные числа, меньшие n и взаимно простые с ним (два натуральных числа называются взаимно простыми, если их наибольший общий делитель равен 1).
Turbo Pascal 1 Atex 16.05.2012 19:49
Turbo Pascal Взаимно-простые числа
Составить программу, которая определяет, являются ли три введённые числа х, у, z взаимно-простыми. Взаимно-простыми называются числа, наибольший общий делитель которых равен 1. Использовать функцию...
Turbo Pascal 1 cruzel 20.02.2012 11:27
Turbo Pascal Даны натуральные взаимно простые числа n,p.
Даны натуральные взаимно простые числа n,p. Найти m такое, что, во-первых, m<p, во-вторых, произведение чисел m и n при делении на р даёт остаток 1.
Turbo Pascal 1 marishka1991 06.12.2011 18:09
Pascal взаимно простые числа
числа, у которых НОД (наибольший общий делитель) равен 1, наз-ся взаимно-простыми. Найти все взаимно простые числа на отрезке . ммм, срочненька, завтра уже нужно, благодарю заранее :)
Pascal (Паскаль) 3 pockes 20.04.2010 08:58
Pascal Даны целые числа p и q. Получить все делители числа q, взаимно простые с p, т.е. не имеющие с p общих делителей.
Даны целые числа p и q. Получить все делители числа q, взаимно простые с p, т.е. не имеющие с p общих делителей. Есть в C++ она у вас на форуме, не могли бы вы в Паскаль сделать с использованием...
Pascal (Паскаль) 3 phenomiks 27.12.2009 17:42
Turbo Pascal Получить меньшие числа и взаимно простые
Дано натуральное число n. Получить все натуральные числа, меньшие n и взаимно простые с ним.
Turbo Pascal 14 Fossa 27.11.2009 19:44
Опции темы

Текущее время: 08:54. Часовой пояс GMT +4.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.7 PL3
Copyright ©2000 - 2014, vBulletin Solutions, Inc.