Кесте өристеринде деректер типн анықтап даптерлерине жазындар

20-25=-5                                                                                   

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.

стены, ученики, террористы(учителя : d), парты ии т.д.

разрушить : d,

t=t ожидание+t передачи

t ожидания= 1024*1024*8/2^20=8сек

t передачи=9мб*1024*1024*8/2^13=9216сек

t=9224 секунды