Задача 13 Урок 11

Задача 13 Урок 11

Пользователь вводит целое 5-тизначное число, выведите все его цифры в обратном порядке, например для 14564 получим:
46541
(используйте опеции div и mod, подразумевается решение через цикл )

Решение:

var a,b:integer;
begin
  writeln('Vvedite 5-i znachnoe chislo');
  readln(a);
  while (a<>0) do
    begin
      b:= a mod 10;
      a:= a div 10;
      write(b);
    end;
  readln();
end.  

Консоль:

Vvedite 5-i znachnoe chislo
23456
65432