JAWAB:
uses crt;
var bil:integer;
begin
clrscr;
write('masukan sebuah bilangan:');
readln(bil);
if bil=0 then
writeln('anka yang anda masukan nol!')
else
if bil mod 2=0 then
writeln('bilangan yang anda masukan genap')
else
writeln('bilangan yang anda masukan ganjil');
readln;
end.
Tidak ada komentar:
Posting Komentar