Question

ПАСКАЛЬ
Дано натуральное число, получить число, образованные при прочтении справа налево
X=317 y=70

Answer 1

var

   a, b : integer;

begin

   write('введите число: ');

   readln(a);

   while a > 0 do begin

       b := b*10+(a mod 10);

       a := a div 10;

   end;

   writeln(b);

end.

Answer 2

var a:string;
i:Integer;
begin
read(a);
for i:=Length(a) downto 1 do
write(a[i]);
end.
полегче надо