Program GanjilGenap;
uses crt;
var
N,i: integer;
begin
clrscr;
writeln('Program Ganjil agenap');
for N := 1 to 10 do
begin
write(N;.Input Bil ='); readln(i);
if i mod 2 = 0 then
writeln(' Keterangan = Genap');
else
writeln(' Keterangan = Ganjil');
end;
readln;
end.
uses crt;
var
N,i: integer;
begin
clrscr;
writeln('Program Ganjil agenap');
for N := 1 to 10 do
begin
write(N;.Input Bil ='); readln(i);
if i mod 2 = 0 then
writeln(' Keterangan = Genap');
else
writeln(' Keterangan = Ganjil');
end;
readln;
end.
Komentar
Posting Komentar