Сколько бит потребуется для записи результатов измерений температуры в диапазоне от 0 до +100 градусов с точностью 0,1
это

var  s: string;   i: longint; begin  readln(s);   for i: =length(s) downto 1 do  begin  if s[i]=' ' then delete(s,i,1);   if (s[i]> ='1')and(s[i]< ='9') then delete(s,i,1);   end;   writeln(length(s)); end.

у меня получилось, что первое число 954, второе 459, а третье 495. т.е. получился пример : 954-459=495

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.

я пробовала у меня вышло 15 но возможны и другие варианты