A simple program that wrote using Turbo Pascal For Windows to accept a series of numbers and then our program will reverse the arrangement of the number being provided by the user.
Add me at Facebook my address is jakerpomperada@gmail.com and jakerpomperada@yahoo.com.
My email address are the following jakerpomperada@gmail.com and jakerpomperada@yahoo.com.
My mobile number here in the Philippines is 09173084360.
Sample Program Output
Program Listing
Program Revese_Num_Using_while_loop;
Uses WinCrt;
Var
N,R : Longint;
Begin
Clrscr;
Write('Reverse a Number Using While Loop Using Turbo Pascal');
Writeln;
Writeln;
Writeln;
Write('Give a Number : ');
Readln(N);
Writeln; Writeln;
Write('The Reversed Number :==> ');
While (N<>0) Do
Begin
R := N mod 10;
Write(R);
N := N Div 10;
End;
Writeln;
Writeln;
Write('End of Program');
Readln;
End.
