Дано натуральное число А. Вывести число, полученное из А путем прочтения его цифр справа...

Question

Дано натуральное число А. Вывести число, полученное из А путем прочтения его цифр справа налево. Например, 12345 -> 54321.

Answer 1

uses crt; var    s:array[1..100]ofinteger;     a,i,j,b:integer; begin     clrscr;   readln(a);   b:=a;   j:=0;     while b<>0do     begin          j:=j+1;          s[j]:=b mod10;          b:=b div10;     end;     for i:=1to j do         write(s[i]);     writeln;         readln; end.