A simple program that I wrote using Pascal as my programming language that will ask the user to give a number and then our program will determine if the given number by the user is ODD or EVEN number. The program itself is very short and easy to understand. I am using Turbo Pascal 6 as my compiler in writing this program.
If you have some questions please send me an email at jakerpomperada@gmail.com and jakerpomperada@yahoo.com.
My mobile number here in the Philippines is 09173084360.
Sample Program Output
Program Listing
Program Odd_Even_Number;
Uses Crt;
Var Number : Integer;
R : Integer;
Ch : Char;
Begin
Clrscr;
Repeat
Writeln;
Number := 0;
R := 0;
Writeln('Odd and Even Number Checker in Pascal');
Writeln;
Writeln;
Write('Enter a Number : ');
Readln(Number);
R := Number MOD 2;
If (R=0) Then
Begin
Writeln(Number ,' is a Even Number. ');
Writeln;
End
Else
Begin
Writeln(Number,' is Odd Number. ');
Writeln;
End;
Writeln;
Write(' Do you want to continue y/n ?');
Ch := Upcase(readkey);
Until Ch = 'N';
Writeln;
Writeln;
Write('Thank You For Using This Software.');
Readln;
End.
