Delphi Tam Sayıdaki Rakamları Ters Sırada Gösterme Örneği
"Delphi" Programlama dilinde "Tam Sayıdaki Rakamları Ters Sırada Gösterme Örneği" ile ilgili örnek kod aşağıda gösterilmiştir.
program ReverseNumber;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
number, rev, digit: Integer;
begin
Write('Bir Tamsayı Girin: ');
ReadLn(number);
rev := 0;
while number <> 0 do
begin
digit := number mod 10;
rev := (rev * 10) + digit;
number := number div 10;
end;
WriteLn(rev);
end.