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

Question

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

Answer 1

1)
var x,y:integer;
begin
readln(x);
y:=(abs(x) mod 10)*10+(abs(x) div 10);
if x<0 then y:=-y;<br>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