Дано целое положительное трехзначное число.Напишите программу, позволяющую определить...

Question

Дано целое положительное трехзначное число.Напишите программу, позволяющую определить число, полученное выписыванием в обратном порядке цифр заданного трехзначного числа. Например: 123->321.

Answer 1

Var a,b:integer;
d:string;
  begin
    writeln('введите число');
    readln(b);
    Str (b, d);
      for a:=length(d) downto 1 do begin
      write(d[a]);
    end;
  writeln('');
end.

Comments

ну это через строковые массиввы

---

через числа там по другому немного

---

var a,b,c:integer;
begin
writeln('vvedi ');
readln(a);

while a<>0 do begin
b:=a mod 10;
a:=a div 10;
write(b);

end;
writeln('');
end.

---

это через числа