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

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

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

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

Ответ
 
Опции темы Поиск в этой теме
Старый 27.04.2010, 16:48   #1
A_Orlov
Пользователь
 
Регистрация: 27.04.2010
Сообщений: 26
По умолчанию Нахождение наибольшего общего делителяНахождение наибольшего общего делителя

Помогите с задачкой!
Даны целые положительные числа A и B. Найти их наибольший общий делитель (НОД), используя алгоритм Евклида: НОД(A, B) = НОД(B, A mod B), если B ¹ 0; НОД(A, 0) = A.
A_Orlov вне форума Ответить с цитированием
Старый 27.04.2010, 16:53   #2
Филантроп
Форумчанин
 
Аватар для Филантроп
 
Регистрация: 12.04.2010
Сообщений: 134
По умолчанию

Код:
var x,y:integer;
function nod( a, b: longint): longint; 
  begin
   while (a <> 0) and (b <> 0) do begin
     if a >= b then 
       a:= a mod b 
     else 
       b:= b mod a;
   end;
   nod:= a + b;
  end;
begin
readln(x);
readln(y);
writeln(nod(x,y));
readln;end.
кому нужна помощь! жду в аське и скайпе!
Филантроп вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Нахождение наибольшего числа из промежутка BaronVik Паскаль, Turbo Pascal, PascalABC.NET 4 21.04.2010 16:36
Нахождение наибольшего общего делителя fs444 Общие вопросы C/C++ 4 29.03.2010 19:07
[C] Нахождение наибольшего простого пути wolfram Помощь студентам 0 29.11.2009 12:33
Определить из наибольший общий делитель, используя функцию нахождения общего делителя. Igomax Помощь студентам 6 23.05.2009 19:41
нахождение наибольшего общего делителя и наименьшего общего кратного made in russia Помощь студентам 2 21.12.2008 23:36