Найти наибольший общий делитель чисел A, B, C, создав функцию для нахождения НОД двух натуральных чисел.
Найти наибольший общий делитель чисел A, B, C,
создав функцию для нахождения НОД двух натуральных чисел.
Гость
Ответ(ы) на вопрос:
Гость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.
Гостьvar a,b,c,d :integer;
function NOD(a,b:integer):integer;
begin
while a<>b 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.
Не нашли ответ?
Похожие вопросы