Поменять местами первую и последнюю цифры числа — Pascal(Паскаль)

{Поменять местами первую и последнюю цифры числа}
program borlpasc;
var b,a,n,k:integer;
begin write('введите число n=');
      readln(n);
      k:=n;
      a:=k mod 10;
          repeat b:=k mod 10;
                 k:=k div 10
          until k div 10 =0;
      b:=k mod 10;

      writeln(a,n div 10 div 10 mod 10,n div 10 mod 10,b)
end.

Leave a Comment