Нужно заменить данное натуральное число на число, которое получается из исходного записью его цифр в обратном порядке (напр., дано число 156, нужно получит 651).
Я делала через строку, у меня все запускалось, все было правильно.. но сказали переделать другим способом, так как мне даны числа, а не строка...
Program Perevernut;
function perevertysh (p:integer):integer;
var S,a,a1,a2,a3:integer;
begin
write('Vvedite 3-x znachnoe chislo');
readln(a);
a1:=a mod 10;
a:=a div 10;
a2:=a mod 10;
a3:=a div 10;
S:=a1+a2+a3;
writeln();
readln
end.
Я стала решать так.. но дальit до меня не доходит.. я понимаю, что надо сделать так, чтобы первое вставало на место последнего, второе - на место предпоследнего.. но как это сделать - не знаю. Помогите пож-та.