помогите срочно с нформатикой, плиз: написать процедуру,которая получает целочисленные переменные и разворачивает её цифры в обратном порядке.
More Questions From This User See All
помогите срочно с нформатикой, плиз: написать процедуру,которая получает целочисленные переменные и разворачивает её цифры в обратном порядке.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
procedure Reverse (var a:integer);
var
r:integer;
begin
r := 0;
while a <> 0 do
begin
r := r * 10 + a mod 10;
a := a div 10;
end;
a := r;
end;
//функция
function Reverse (a:integer):integer;
var
r:integer;
begin
r := 0;
while a <> 0 do
begin
r := r * 10 + a mod 10;
a := a div 10;
end;
Reverse := r;
end;