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

Составить программу для нахождения наибольшего общего делителя и наименьшего общего кратного двух натуральных чисел

27.03.2014, 21:16. Показов 11618. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Помогите решить, пжл.
Составить программу для нахождения наибольшего общего делителя и наименьшего общего кратного двух натуральных чисел (НОК(A, B)= https://www.cyberforum.ru/cgi-bin/latex.cgi?\frac{A*B}{NOD  A, B} ).
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
27.03.2014, 21:16
Ответы с готовыми решениями:

Составить программу для нахождения наибольшего общего делителя и наименьшего общего кратного двух натуральных чисел
Доюрый день! помогите пожалуйста мне решить задачей Организация процедур, использование процедур...

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

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

Написать программу нахождения наибольшего общего делителя двух чисел
ПоМоГиТе получить зачет Написать программу нахождения наибольшего общего делителя двух чисел....

1
Модератор
Эксперт PythonЭксперт JavaЭксперт CЭксперт С++
12471 / 7493 / 1757
Регистрация: 25.07.2009
Сообщений: 13,791
28.03.2014, 01:45 2
Лучший ответ Сообщение было отмечено DamiRik как решение

Решение

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
program Nod_n_Nok;
 
function nod(a, b : longint) : longint;
begin
    if a = b then
        nod := a
    else if a > b then
        nod := nod(b, a - b)
    else
        nod := nod(a, b - a)
end;
 
function nok(a, b : longint) : longint;
begin
    nok := ( a * b ) div nod(a, b);
end;
 
{ main }
var
    a, b : longint;
begin
    while TRUE do begin
        write('A = ');
        readln(a);
        if a < 1 then
            break;
        write('B = ');
        readln(b);
        if b < 1 then
            break;
        writeln('NOD: ', nod(a,b), '; NOK: ', nok(a, b));
    end
end.
1
28.03.2014, 01:45
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
28.03.2014, 01:45
Помогаю со студенческими работами здесь

Составьте программу определения наибольшего общего делителя двух натуральных чисел
1. Составьте программу получения в порядке убывания всех делителей данного числа. for i:=n downto...

Составить программу для нахождения наибольшего общего делителя
Народ,помогите решить следующие задачки по Pascal: 1) Даны натуральное число N и...

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

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


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

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

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