LA Pascal II

Program 2 (Bil Ganjil Genap)

uses crt;
var
        a:integer;
        b:string;
begin
repeat
clrscr;
write('Masukan Angka = ');readln(a);
if (a=0) then writeln(a ,' adalah kosong') else
if (a mod 2 =0) then writeln(a,' adalab bilangan genap') else
writeln(a,' adalah bilangan ganjil');
writeln;
write('Coba angka lain (y/n) : ');readln(b);
until (b='N') or (b='n');
end.

Output :

Program 2 (Bilangan Prima)

uses crt;
var
        a,b,c:integer;
        d:string;
begin
repeat
clrscr;
write('Masukan angka : ');readln(a);
b:=0;
for c:= 1 to a do
if (a mod c=0) then
b:=b+1;
if (b=2) then writeln (a, ' adalah bilangan prima')
else writeln(a,' bukan bilangan prima');
writeln;
write('Coba angka lain(y/n) ? ');readln(d);
until (d='N') or (d='n');
end.
 

Output :