Чтобы найти наибольший общий делитель постройте программу используя эту формулу :нод(А,B,C)=нод(нод(А,B,),C).( через программу паскаль) program=Evklid

Предыдущий
вопрос Следующий
вопрос

program Evklid;

function gcd(a, b: integer): integer;
begin
if b = 0 then
gcd := a
else
gcd := gcd(b, a mod b);
end;

var
a, b, c: integer;

begin
write('Enter the first number: ');
readln(a);

write('Enter the second number: ');
readln(b);

write('Enter the third number: ');
readln(c);

writeln('The greatest common divisor is: ', gcd(gcd(a, b), c));
end.