Cehelm
6 год назад
Используя подпрограмму-функцию , вычисляющую НОД двух чисел , составьте подпрограмму-функцию для вычисления НОД трех целых чисел . Помогите пожалуйста очень срочно нужно!!!
ОТВЕТЫ
Leonidovich
Jul 21, 2019
// PascalABC.NET 3.2, сборка 1346 от 25.11.2016
// Внимание! Если программа не работает, обновите её версию!
function gcd(a,b:integer):integer;
begin
while blt;gt;0 do
begin
a:=a mod b;
(a,b):=(b,a);
end;
Result:=a
end;
function gcd3(a,b,c:integer):=gcd(gcd(a,b),c);
begin
Writeln(НОД(138,48,312)=,gcd3(138,48,312))
end.
Пример
НОД(138,48,312)=6
// Внимание! Если программа не работает, обновите её версию!
function gcd(a,b:integer):integer;
begin
while blt;gt;0 do
begin
a:=a mod b;
(a,b):=(b,a);
end;
Result:=a
end;
function gcd3(a,b,c:integer):=gcd(gcd(a,b),c);
begin
Writeln(НОД(138,48,312)=,gcd3(138,48,312))
end.
Пример
НОД(138,48,312)=6
253
Смежные вопросы:
