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

Question

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

Матвеева Анна Ученик (121), закрыт 12 лет назад

НОД(А,В,С)=НОД(НОД(А,В),С)

Answer 1

var a,b,c: longint;
function nod(a, b: longint): longint;
begin
while (a <> 0) and (b <> 0) do
begin
if a > b then a := a mod b else b := b mod a;
nod := a + b;
end;
end;
begin
read(a,b,c);
Writeln(nod(nod(a,b),c));
end.

Answer 2

{нахождение НОД}
uses crt;
var
a, b, gcd: longint;
begin
cls;
write('vvesti 2 chisla --> '); readln(a, b);
while (a <> 0) and (b <> 0) do
if a > b then a := a mod b else b := b mod a;
gcd := a + b;
writeln('НОД: ', gcd);
readkey;
end.
оформи сама

Answer 3

Советовали тут уже несколько раз, вот решение:

Answer 4

Коля Иваненко Профи (656) 5 лет назад

Хм