Первое задание

дано целое двузначное число x. выведите число, полученное при перестановке его цифр. значение x ввести с клавиатуры

второе задание

дано целое трёхзначное число x. составьте программу вычисления суммы и произвидения цифр трёхзначного числа x. значение x ввести с клавиатуры

1)

var x, y:integer;

begin

readln (x) ;

y: = (abs (x) mod 10) * 10 + (abs (x) div 10) ;

if x<0 then y:=-y;

writeln (y) ;

end.

Пример:

-25

-52

2)

var x, x1, x2, x3:integer;

begin

readln (x) ;

x:=abs (x) ;

x1:=x div 100;

x2:=x div 10 mod 10;

x3:=x mod 10;

writeln ('S = ', x1+x2+x3,' P = ', x1*x2*x3) ;

end.

Пример:

271

S = 10 P = 14