Cobalah Program dibawah ini
di Pascal Turbo 7.0
 |
program menentukan genap atau ganjil
uses crt :
var
a : integer;
begin
clrscr ;
writeln (' masukkan bilanganmu :');
readln (a);
if (a mod 2 = 0) then
writeln ('genap')
else
writeln ('ganjil');
readln ;
end.
0 komentar:
Posting Komentar