Mencari FPB dengan Pascal

Program FPB;
var m,n,r:integer;
label d;
begin
write('masukkan bilangan pertama ');
readln(m);
write('masukkan bilangan kedua ');
readln(n);
for r:=m downto 1 do if (m mod r = 0 ) and (n mod r = 0) then goto d;
d: writeln('FPB = ',r);
readln;
end.

Tweet

Jangan sampai ketinggalan postingan-postingan terbaik dari Gadget Mainstream. Berlangganan melalui email sekarang juga:

Atau sobat juga bisa follow Gadget Mainstream dengan mengklik tombol di bawah ini:

Artikel keren lainnya:

Ditulis oleh Gadget Mainstream pada tanggal Senin, 02 Februari 2015