Главная » 2013 » Сентябрь » 29 » Наибольший общий делитель двух натуральных чисел A и B (Pascal)
14:27
Наибольший общий делитель двух натуральных чисел A и B (Pascal)
В одной из египетских пирамид на каменной надгробной плите было обнаружено высеченное иероглифическое обозначение числа 2520. Быть может, потому, что оно без остатка делится на все натуральные числа от 1 до 10.
Сначала осуществляется деление, а затем — умножение,чтобы уменьшить вероятность переполнения. 

 uses crt;
 function NOD(a,b:longint):longint;
 begin
  repeat
   if a>b then a:=a mod b
  else b:=b mod a;

Просмотров: 1083 | Добавил: shypuk | Рейтинг: 0.0/0
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]