Даю 100 баллов прошу помогите или объясните!!! Pascal
1. Составьте программу нахождения наибольшего общего делителя трех чисел, используя следующую формулу: НОД(A,B,C) = НОД(НОД(A,B),C).
Только по простому, funtion ещё не проходили
По этому алгоритму
1. Составьте программу нахождения наибольшего общего делителя трех чисел, используя следующую формулу: НОД(A,B,C) = НОД(НОД(A,B),C).
Только по простому, funtion ещё не проходили
По этому алгоритму
More Questions From This User See All
Answers & Comments
Program Evklid;
var
A,B,C:longint;
begin
writeln('Введите A, B и C');
readln(A,B,C);
while A<>B do
begin
if A>B then
A:=A-B
else
B:=B-A;
end;
while C<>A do
begin
if C>A then
C:=C-A
else
A:=A-C;
end;
writeln('НОД = ',C);
end.
Предположим,
M=24
N=16
М<>N условие выполняется? Да
M>N условие выполняется? Да
M:=M-N значит
M=24-16=8
М<>N условие выполняется? Да
M>N условие выполняется? Да
N:=N-M значит
N=16-8=8
М<>N условие выполняется? Нет
Цикл закончился
НОД найден
М=N=8
Выводим результат. Любое N или M