Предмет: Информатика,
автор: blestinko
Составьте программу нахождения наибольшего общего делителя трех чисел, используя следующую формулу:
НОД(А, B, С) = НОД(НОД(A, В), С).
Используя алгоритм Евклида.
Ответы
Автор ответа:
0
function NOD(a, b: longint): longint;
begin
while a <> b do
if a > b then a := a - b
else b := b - a;
NOD := a
end;
var
A, B, C: longint;
begin
Write('Введите три натуральных числа: '); Readln(A, B, C);
Writeln('НОД=', NOD(NOD(A, B), C))
end.
Тестовое решение:
Введите три натуральных числа: 256 48 24
НОД=8
begin
while a <> b do
if a > b then a := a - b
else b := b - a;
NOD := a
end;
var
A, B, C: longint;
begin
Write('Введите три натуральных числа: '); Readln(A, B, C);
Writeln('НОД=', NOD(NOD(A, B), C))
end.
Тестовое решение:
Введите три натуральных числа: 256 48 24
НОД=8
Похожие вопросы
Предмет: Физика,
автор: bsndhe382872
Предмет: География,
автор: 01020002
Предмет: Математика,
автор: att18022020att
Предмет: История,
автор: cv20011