Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.77/13: Рейтинг темы: голосов - 13, средняя оценка - 4.77
1 / 1 / 0
Регистрация: 24.10.2015
Сообщений: 22
1

Даны четыре натуральных числа. Найти НОД для этих четырех чисел

28.10.2015, 13:36. Показов 2311. Ответов 2
Метки нет (Все метки)

Даны четыре натуральных числа. Найти НОД для этих четырех чисел. Создать программу код Паскаль
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

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

Даны натуральные числа A и B. Найти их НОК, определив функцию для расчета НОД двух натуральных чисел, используя алгоритм Евклида
Даны натуральные числа A и B. Найти их наименьшее общее кратное, определив функцию для расчета...

Нахождения НОД четырех натуральных чисел
Составить программу для нахождения НОД четырех натуральных чисел!!!С помощью процедуры!

Даны четыре натуральных числа. Вывести на экран то из них, сумма цифр которого - наибольшая
На языке Паскаль решить 2 способами: 1) с использованием процедур; 2) с использованием функций....

Даны три произвольных числа, проверить, является ли хотя бы одно из этих чисел квадратом целого числа
Даны три произвольных числа A,B,C. Если хотя бы одно из этих чисел является квадратом целого числа,...

2
CAPITAL OF ROCK!
1280 / 707 / 982
Регистрация: 03.03.2010
Сообщений: 2,286
28.10.2015, 14:22 2
Лучший ответ Сообщение было отмечено didar1997 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
function NOD(x, y: Word): Word;
begin
    while (x <> y) do
        if (x > y)
        then
            Dec(x, y)
        else
            Dec(y, x);
    NOD := x;
end;
var
    a, b, c, d: Word;
begin
    Write('a='); ReadLn(a);
    Write('b='); ReadLn(b);
    Write('c='); ReadLn(c);
    Write('d='); ReadLn(d);
    WriteLn('NOD=', NOD(NOD(NOD(c, d), b), a));
end.
1
1 / 1 / 0
Регистрация: 24.10.2015
Сообщений: 22
28.10.2015, 16:11  [ТС] 3
спасибо огромное )))
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
28.10.2015, 16:11

Напишите программу для определения НОД трех натуральных чисел
Задача №5 Первоначальное напряжение в цепи равно 200 В. Известно, что оно меняется через каждую...

Даны три двухзначных числа подсчитать числа являющиеся квадратами натуральных чисел
Даны три двухзначных натуральных числа. Подсчитать среди них количество чисел, являющихся...

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

НОД четырех чисел
ispolzuya podprogrammi napisat resheniya zadach.naiti NOD chisel a, b, c, d


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

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

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