Program menentukan nilai genap atau ganjil
Program latihan0203;
Uses wincrt;
Var
Bil: integer;
Jumlah : real;
Begin
Write('Masukkan Nilai Bilangan : '); readln(bil);
Jumlah:=bil mod 2;
if jumlah<>0 then
begin
Writeln('Bilangan ',bil,' adalah Bilangan GANJIL');
end
else
begin
Writeln('Bilangan ',bil,' adalah Bilangan GENAP');
end
end.
Uses wincrt;
Var
Bil: integer;
Jumlah : real;
Begin
Write('Masukkan Nilai Bilangan : '); readln(bil);
Jumlah:=bil mod 2;
if jumlah<>0 then
begin
Writeln('Bilangan ',bil,' adalah Bilangan GANJIL');
end
else
begin
Writeln('Bilangan ',bil,' adalah Bilangan GENAP');
end
end.
screenshot output program
Semoga Bermanfaat.....
0 Comments
