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

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

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

46541

(используйте опеции div и mod, подразумевается решение через цикл )

Решение:

program u11z13;
var i:integer;
begin
  writeln('vvedite celoe chislo');
  readln(i);
  while i>0 do
  begin
    write(i mod 10);
    i:=i div 10;
  end;
  readln();
end.

Консоль:

vvedite celoe chislo
12345
54321