program bilangan_ganjil_genap;
uses wincrt;
var
a,i:integer;
begin
clrscr;
writeln('masukkan batas akhir bilangan: ');read(a);
for i:= 1 to a do
begin
if i mod 2 = 0 then
writeln(i,' adalah bilangan genap')
else
writeln(i, ' adalah bilangan ganjil');
end;
readln;
end.
Senin, 21 Desember 2009
Langganan:
Posting Komentar (Atom)
Tidak ada komentar:
Posting Komentar