Вычислить НОД (a,b) - наибольший общий делитель

@temon · Регистрация: 27.10.2008

Author24 — интернет-сервис помощи студентам

7. Даны два натуральных числа a и b, не равные нулю одновременно. Вычис-лить НОД (a,b) - наибольший общий делитель а и b. Делителями называются числа, которые делят без остатка заданное число, кроме единицы и самого этого числа.

@Викдон · 29.11.2008, 14:53

7)

Код

var a,b:integer;
    min,maxd,i:integer;
begin
  write('Введите а ');
  readln(a);
  write('Введите b ');
  readln(b);
   if (a=0) or (b=0) then
     begin
      write('Ошибка! ноль вводить нельзя!');
      halt
     end;


    if a>b then
      min:=b
   else
     min:=a;
    
   maxd:=1;  
      for i:=1 to min do
         if (a mod i = 0) and (b mod i = 0) then
              if i> maxd then
                 maxd:=i;

write('Наибольший общий делитель чисел',a,' и ',b,' равен: ',maxd);
readln;



end.

@qwer · 01.12.2008, 00:15

Pascal

{7}var a, b, kol, i : longint;
function nsd(a, b : longint) : longint;
begin
while (a <> 0) and (b <> 0) do
if a >= b then
a := a mod b
else
b := b mod a;
nsd := a + b;
end;
begin
readln(a, b);
writeln(nsd(a, b));
end.

Новые блоги и статьи
Как подключить JavaScript файл в другом JavaScript файле InfoMaster 20.01.2025 В современной веб-разработке организация кодовой базы играет ключевую роль в создании масштабируемых и поддерживаемых приложений. Модульность и правильное структурирование кода стали неотъемлемыми. . .	Как откатить изменения в исходниках, не внесенные в Git InfoMaster 20.01.2025 При работе с системой контроля версий Git разработчики часто сталкиваются с необходимостью отменить внесенные изменения в исходном коде. Особенно актуальной становится ситуация, когда изменения еще. . .	В чем разница между px, in, mm, pt, dip, dp, sp InfoMaster 20.01.2025 В мире цифрового дизайна и разработки интерфейсов правильный выбор единиц измерения играет ключевую роль в создании качественного пользовательского опыта. История развития систем измерений для. . .	Как изменить адрес удалённого репозитория (origin) в Git InfoMaster 20.01.2025 В терминологии Git термин origin является стандартным именем для основного удаленного репозитория, с которым взаимодействует локальная копия проекта. Когда разработчик клонирует репозиторий с. . .	Как переместить последние коммиты в новую ветку (branch) в Git InfoMaster 20.01.2025 При работе над проектом часто возникают ситуации, когда необходимо изолировать определенные изменения от основной линии разработки. Это может быть связано с экспериментальными функциями, исправлением. . .	Как вернуть результат из асинхронной функции в JavaScript InfoMaster 20.01.2025 Асинхронное программирование представляет собой фундаментальную концепцию в JavaScript, которая позволяет выполнять длительные операции без блокировки основного потока выполнения программы. В. . .
Какой локальный веб-сервер выбрать InfoMaster 19.01.2025 В современной веб-разработке локальные веб-серверы играют ключевую роль, предоставляя разработчикам надежную среду для создания, тестирования и отладки веб-приложений без необходимости использования. . .	Почему планшеты и iPad уже не так популярны, как раньше InfoMaster 19.01.2025 Эра революционных инноваций История планшетных компьютеров началась задолго до того, как эти устройства стали привычными спутниками нашей повседневной жизни. В начале 1990-х годов появились первые. . .	Как самому прошить BIOS ноутбука InfoMaster 19.01.2025 BIOS (Basic Input/ Output System) представляет собой важнейший компонент любого компьютера или ноутбука, который обеспечивает базовое взаимодействие между аппаратным и программным обеспечением. . .	Какой Linux выбрать для домашнего компьютера InfoMaster 19.01.2025 Современные реалии выбора операционной системы В современном мире выбор операционной системы для домашнего компьютера становится все более важным решением, которое может существенно повлиять на. . .	Как объединить два словаря одним выражением в Python InfoMaster 19.01.2025 В мире программирования на Python работа со словарями является неотъемлемой частью разработки. Словари представляют собой мощный инструмент для хранения и обработки данных в формате "ключ-значение". . . .	Как без исключения проверить существование файла в Python InfoMaster 19.01.2025 При разработке программного обеспечения на Python часто возникает необходимость проверить существование файла перед выполнением операций с ним. Это критически важная задача, которая помогает избежать. . .

@temon 0 / 0 / 0 Регистрация: 27.10.2008 Сообщений: 21
		1
	Вычислить НОД (a,b) - наибольший общий делитель 29.11.2008, 13:18. Показов 6360. Ответов 2 Метки нет (Все метки) 7. Даны два натуральных числа a и b, не равные нулю одновременно. Вычис-лить НОД (a,b) - наибольший общий делитель а и b. Делителями называются числа, которые делят без остатка заданное число, кроме единицы и самого этого числа. 0

	01.12.2008, 00:15

Опции темы

Вычислить НОД (a,b) - наибольший общий делитель

Решение