Question

Elaborati o functie care calculeaza cel mai mare divizor comun al numerelor naturale a,b. In Pascal

Answer 1

Program P8;
var a, b: integer;
function cmmdc(a,b:integer):integer;
begin 
    while a<>b do     
    if a>b then a:=a-b           
              else b:=b-a;               
 cmmdc:=a;
end;
begin     
writeln('Introduceti primul numar'); 
readln(a); 
  writeln('Introduceti al doilea numar');   
 readln(b); 
   writeln('Cel mai mare divizor comun este:', cmmdc(a,b));
end.