Написать в Турбо Паскале программу: Задано 3-х значное число X. Найти разность между этим числом и числом, записанным теми же цифрами, но в другом порядке. (Видимо в обратном порядке?)

Question

Митрей

26 ноября, 10:36

+1

Ответы (1)

Знаете ответ на вопрос?

Пульхерия · Answer 1

var x, x1:integer;

s:string;

Begin

read (x) ;

s:=str (x) ;

x1:=int (s[3]+s[2]+s[1]) ;

writeln (x-x1) ;

End.