Дано 4-х значное число. Определить, что больше само число или его перевёртыш.

Question

Информатика

Ливия

3 декабря, 12:21

Дано 4-х значное число. Определить, что больше само число или его перевёртыш.

+1

Ответы (1)

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

Андря · Answer 1

var

n, a:integer;

begin

readln (n) ;

a: = (n mod 10) * 1000 + ((n mod 100) div 10) * 100 + ((n mod 1000) div 100) * 10 + n div 1000;

if n>a then

writeln ('число ', n, ' больше перевертыша ', a)

else

writeln ('перевертыш ', a, ' больше числа ', n) ;

end.