Автор Тема: Турбо паскаль, программа для нахождения НОД трех чисел, помогите  (Прочитано 8515 раз)

0 Пользователей и 1 Гость просматривают эту тему.

Оффлайн Иринки

  • Постоялец
  • ***
  • Сообщений: 132
    • Просмотр профиля
помогите пожалуйста нужно написать в турбо паскале по теореме Евклида

Нужно по теореме Евклида решить в паскале

составьте программу нахождения наибольшего общего делителя трех чисел используя формулу:НОД(А,В,С)=НОД(НОД(А,В),С)


прошу помогите*
« Последнее редактирование: 24 Ноября 2010, 09:49:43 от Asix »

Оффлайн testtest

  • Старожил
  • ****
  • Сообщений: 376
    • Просмотр профиля
function nod(a,b:integer):integer;
begin
  if a * b = 0 then
    nod := a + b
  else
    nod := nod(a mod b, b mod a);
end;

begin
  writeln(nod(nod(12, 1204), 16);
end.
« Последнее редактирование: 24 Ноября 2010, 09:49:49 от Asix »

 

Ввести матрицы А и В. Помогите получить элементы третьей матрицы C

Автор xxMalayaxx

Ответов: 13
Просмотров: 1665
Последний ответ 04 Февраля 2010, 21:16:39
от xxMalayaxx
Помогите решить задание на С++. Решить этот ДУ методом Рунге-Кутта

Автор artecovez

Ответов: 0
Просмотров: 2643
Последний ответ 24 Апреля 2010, 20:41:08
от artecovez
Помогите разобраться с задачей по "методу оптимальных решений"

Автор 16Q

Ответов: 0
Просмотров: 3960
Последний ответ 23 Апреля 2014, 20:58:36
от 16Q
Доброго времени суток, помогите пожалуйсто написать программу на Visual C++

Автор Кирилл89

Ответов: 3
Просмотров: 1955
Последний ответ 03 Ноября 2011, 17:01:18
от DrXakep
Помогите создать снеговика с анимацией в PascalABC и в Microsoft Visual Basic6.0

Автор ЮЛИКА

Ответов: 7
Просмотров: 7452
Последний ответ 04 Мая 2012, 11:18:19
от ki