Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.53/19: Рейтинг темы: голосов - 19, средняя оценка - 4.53
0 / 0 / 0
Регистрация: 05.01.2012
Сообщений: 29
1

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

06.01.2012, 19:21. Показов 3632. Ответов 2
Метки нет (Все метки)

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

0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
06.01.2012, 19:21
Ответы с готовыми решениями:

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

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

Алгоритм Евклида. Найти наибольший общий делитель
Пожалуйста, помогите) нужно написать задачу в Паскале и написать блок-схему. Тип: Цикл с...

Найти наибольший общий делитель трех чисел
8.Найти наибольший общий делитель трех чисел.

__________________
2
206 / 183 / 104
Регистрация: 10.01.2011
Сообщений: 302
06.01.2012, 23:20 2
Лучший ответ Сообщение было отмечено как решение

Решение

Цитата Сообщение от фунтик Посмотреть сообщение
№107Найти наибольший общий делитель трех заданных
натуральных чисел, используя алгоритм Евклида и учиты*
в а я, что НОД(а, Ь, с) = НОД(НОД(а, Ъ), с).
Задача №4
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
uses crt;
 
  function ReadN(c: Char): Integer;
  var
    n: Integer;
  begin
    repeat
      Write('Введите ', c, '>0 = ');
      Readln(n);
    until n>0;
    ReadN:=n;
  end;
 
  function NOD(a, b: Integer): Integer;
  var
    t: Integer;
  begin
    if (a>0) and (b>0) then
    begin
      if b>a then
      begin
        t:=a;
        a:=b;
        b:=t;
      end;
      repeat
        t:=b;
        b:=a mod b;
        a:=t;
      until b=0;
      NOD:=a;
    end
    else NOD:=1;
  end;
 
var
  a, b, c: Integer;
begin
  ClrScr;
  a:=ReadN('a');
  b:=ReadN('b');
  c:=ReadN('c');
  Writeln('НОД (a, b, c) = ', NOD(NOD(a, b), c));
  Readkey;
end.
4
0 / 0 / 0
Регистрация: 19.01.2014
Сообщений: 32
23.01.2014, 11:20 3
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
23.01.2014, 11:20

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Рекурсия: найти наибольший общий делитель чисел M и N, используя теорему Эйлера
Помогите пожалуйста решить задачу на рекурсию, очень надо, заранее огромное спасибо! задача:...

Определить наибольший общий делитель трех чисел
Помогите ,буду очень вам признателен ) спасибо . Добавлено через 11 минут извеняюсь через...

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

Найти наибольший общий делитель чисел a и b
Найти наибольший общий делитель чисел a и b. Зарание спасибо.


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.