0 / 0 / 0
Регистрация: 27.10.2008
Сообщений: 21
1

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

29.11.2008, 13:18. Показов 6139. Ответов 2
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
7. Даны два натуральных числа a и b, не равные нулю одновременно. Вычис-лить НОД (a,b) - наибольший общий делитель а и b. Делителями называются числа, которые делят без остатка заданное число, кроме единицы и самого этого числа.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
29.11.2008, 13:18
Ответы с готовыми решениями:

Даны натуральные числа m, n. Вычислить наибольший общий делитель чисел m, n (НОД), используя рекурсивную функцию вычисления НОД.
Даны натуральные числа m, n. Вычислить наибольший общий делитель чисел m, n (НОД), используя...

Даны n натуральных чисел. Найти их наибольший общий делитель, учитывая что НОД(а,б,с)=НОД(НОД(а,б)с)
даны n натуральных чисел. Найти их наибольший общий делитель, учитывая, что НОД(a,b,c) = НОД...

Найти НОД (наибольший общий делитель) двух натуральных чисел по алгоритму Евклида
Найти НОД (наибольший общий делитель) двух натуральных чисел по алгоритму Евклида. Если есть 2...

Используя Алгоритм Евклида найти наибольший общий делитель (НОД) двух неотрицательных чисел
Используя Алгоритм Евклида найти наибольший общий делитель (НОД) двух неотрицательных чисел, с...

2
67 / 67 / 24
Регистрация: 21.11.2008
Сообщений: 226
29.11.2008, 14:53 2
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.
0
4 / 4 / 2
Регистрация: 29.10.2008
Сообщений: 22
01.12.2008, 00:15 3
Лучший ответ Сообщение было отмечено temon как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
{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.
0
01.12.2008, 00:15
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
01.12.2008, 00:15
Помогаю со студенческими работами здесь

Вычислить наибольший общий делитель двух целых чисел
Написать программу: 1. Которая вычисляет наибольший общий делитель двух целых чисел. 2. Которая...

Наибольший общий делитель.
Дана последовательность из n натуральных чисел и натуральное число А. Найти в данной...

Наибольший общий делитель
Составить программу вычисления наибольшего общего делителя двух натуральных чисел, используя...

Найти наибольший общий делитель
даны натуральные числа a и b,найти их: а)наибольший общий делитель б)наименьшее общее кратное


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru