Главная » Статьи » Задачи по программированию |
Наибольший общий делитель двух натуральных чисел A и B (Pascal)
Сначала осуществляется деление, а затем —
умножение,чтобы уменьшить вероятность переполнения. Применяя
приведенную функцию нок, составим программу для печати таблицы
наибольших общих кратных всех идущих по порядку натуральных чисел от 1
до N (N - входное данное): uses crt; function NOD(a,b:longint):longint; begin repeat if a>b then a:=a mod b else b:=b mod a; until (a=0)or(b=0); NOD:=a+b; end; var m,n:integer; begin clrscr; repeat writeln('Введите 2 натуральных числа:'); readln(m,n); until(m>0)and(n>0); writeln('NOD= ',NOD(m,n)); readln end. | |
Просмотров: 4053
| Теги: |
Всего комментариев: 0 | |