Rumah Info | Rumah Semua Informasi

FPB adalah mencari 2 bilangan dengan pembagi yang terbesar.. inilah kodenya, jika ada yang ingin ditanyakan, silahkan berkomentar..
uses dos;
PBT;
var
c,d : integer;

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

begin
write('masukkan nilai pertama : '); readln(c);
write('masukkan nilai kedua : '); readln(d);
writeln('FPB antara ',c,' dan ',d,' adalah ',FPB(c,d));
readln;
end.