Program Mencari_Ganjil_Genap;
uses wincrt;
Var
bilangan1:integer;
bilangan2:integer;
bilangan3:integer;
bilangan4:integer;
begin
Writeln('Masukkan
nilai pertama');readln(bilangan1);
Writeln('Masukkan
Bilangan kedua');readln(bilangan2);
bilangan3:=bilangan1 mod 2;
bilangan4:=bilangan2 mod 2;
if bilangan3
<> 0 then
begin
Writeln
('Angka pertama bilangan ganjil');
end
else
begin
Writeln
('Angka Pertama bilangan genap');
end;
if bilangan4
<> 0 then
begin
Writeln
('Angka kedua bilangan ganjil');
end
else
begin
Writeln('Angka kedua bilangan genap');
end
end.
| 