Найти наибольший общий делитель чисел A, B, C,

создав функцию для нахождения НОД двух натуральных чисел.

Question

Информатика

Авель

2 октября, 10:19

Найти наибольший общий делитель чисел A, B, C,

создав функцию для нахождения НОД двух натуральных чисел.

+5

Ответы (2)

Знаете ответ на вопрос?

Антигона · Answer 1

Var a, b, c, d : integer;

function NOD (a, b:integer) : integer;

begin

while ab do

if a>b then

a:=a-b

else b:=b-a;

result:=a;

end;

begin

writeln ('Введите а, b, c') ;

readln (a, b, c) ;

d:=NOD (a, b) ;

d:=NOD (d, c) ;

writeln ('НОД = ', d) ;

end.

Доняха · Answer 2

Program NOD (output) ;

function nod (a1, a2: integer) : integer;

begin

nod:=abs (a1 mod a2) ;

writeln (#7) ;

nod (a1, a2) ;

end;

var a, b, c, d: integer;

begin

readln (a, b, c) ;

d:=nod (nod (a, b), c) ;

writeln (d) ;

readln;

end.

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

Найти наибольший общий делитель чисел A, B, C,

создав функцию для нахождения НОД двух натуральных чисел.