PRIMA IN PASCAL
Program Pengecekan_Bilangan_Prima;
uses crt;
var a,b:longint;
begin clrscr;
writeln('Program Pengecekan BIlangan Prima');writeln(#10);
write('masukkan sebuah bilangan! '); readln(a);
if a<= 1 then begin writeln(a,' bukan bilangan prima, masukkanlah bilangan yang akan dicek yang >= 2');
writeln('karena bilangan prima dimulai dari 2, OK?!'); end else
if a=2 then begin writeln('2 merupakan bilangan prima'); end
else
for b:=2 to a-1 do
begin
if a mod b = 0 then
begin
writeln(a,' bukan merupakan bilangan prima'); b:=a-1;
end else
if b=a-1 then
writeln(a,' merupakan bilangan prima'); end;
readln end.
0 Comments
Mari komentar dan berdiskusi...