Question

Дано 3-х значное число,найти число,которое образуется перестановкой десятков и едениц. (программа Паскаль)

Answer 1

program al;
var a,b,c,n:integer;
begin
writeln('n=');
readln(n);
a:=n div 100;
b:=n div 10 mod 10;
c:=n mod 10;
writeln('novoe=',a,c,b);     
         readln;       
      end.