Дано вещественное число с двумя цифрами в целой части и одной цифрой в дробной части. Получить вещественное число, запись которого являлась бы зеркальным отображением исходного числа (например, 36.2 и 2.63).

var

x, y, a, b, c: real;

t: integer;

begin

read (x) ;

t : = Round (10 * x) ;

a : = t div 100;

b : = (t div 10) mod 10;

c : = t mod 10;

y : = c + b / 10 + a / 100;

Println (y) ;

end.

Или можно сократить число используемых переменных:

var

x: real;

t: integer;

begin

read (x) ;

t : = Round (10 * x) ;

Println (t mod 10 + (t div 10 mod 10) / 10 + t div 100 / 100) ;

end.