Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 24.12.2010, 20:23   #1
Bek-Z
Пользователь
 
Регистрация: 11.06.2010
Сообщений: 54
По умолчанию Взаимно простые числа

нужно написать программу которая бы считывала два целых числа и определяла бы, являются ли они взаимно простыми. Два числа называют взаимно простыми, если они не имеют общих делителей
Bek-Z вне форума Ответить с цитированием
Старый 24.12.2010, 20:26   #2
Son Of Pain
Участник клуба
 
Регистрация: 23.12.2010
Сообщений: 1,129
По умолчанию

Берешь алгоритм Эвклида. Если наибольший общий делитель единица - значит взаимно простые; иначе - нет.
Son Of Pain вне форума Ответить с цитированием
Старый 24.12.2010, 20:27   #3
KEA0301
Пользователь
 
Регистрация: 20.12.2010
Сообщений: 28
По умолчанию

Это задача поиска НОД, у взаимно простых чисел НОД=1.
KEA0301 вне форума Ответить с цитированием
Старый 24.12.2010, 20:28   #4
Bek-Z
Пользователь
 
Регистрация: 11.06.2010
Сообщений: 54
По умолчанию

Пожалуйста напишите код если не трудно
Bek-Z вне форума Ответить с цитированием
Старый 24.12.2010, 20:42   #5
goto ∞
Форумчанин
 
Аватар для goto ∞
 
Регистрация: 21.12.2010
Сообщений: 155
По умолчанию

Код:
...
while a<>b do
    if a > b then a := a - b
     else b := b-a;
   if a = 1 then write('просты') 
                    else
                       write('непросты');
...
goto ∞ вне форума Ответить с цитированием
Старый 24.12.2010, 20:45   #6
Bek-Z
Пользователь
 
Регистрация: 11.06.2010
Сообщений: 54
По умолчанию

Можно полностью?? у меня еще 1 курс в колледже
Bek-Z вне форума Ответить с цитированием
Старый 24.12.2010, 20:57   #7
goto ∞
Форумчанин
 
Аватар для goto ∞
 
Регистрация: 21.12.2010
Сообщений: 155
По умолчанию

Так как ЯП не написан то..
Delphi..
Код:
procedure TForm1.Button1Click(Sender: TObject);
var a,b : integer;
begin
 a := strtoint(edit1.Text);
 b := strtoint(Edit2.Text);
  while a<>b do
    if a > b then a := a - b
     else b := b-a;
   if a = 1 then Label1.Caption:= 'просты' else
                Label1.Caption:= 'непросты'
end;
end.
Паскаль..
Код:
Program Vzaim_prost;
var a,b : integer;
begin
read(a);
read(b);
 while a<>b do
    if a > b then a := a - b
     else b := b-a;
   if a = 1 then writeln('просты') else
                         writeln('непросты');
end.
Надеюсь не С или С++..

Последний раз редактировалось goto ∞; 24.12.2010 в 21:01.
goto ∞ вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
простые числа Koko Shanel' Помощь студентам 2 08.09.2010 01:13
Даны взаимно простые натуральные числа m и n (m>n). Найти переодическую и непереодическую части десятично Angel-dm Паскаль, Turbo Pascal, PascalABC.NET 0 27.04.2010 19:02
Простые числа werser Помощь студентам 8 18.06.2008 07:24