с во по программе нужно!

с каждым днем количество ряски увеличиваеется в 2 раза. 30 июня ряска покрыла всю поверхность озера, значит 29 июня ряской была покрыта половина озера.

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.

varn: integer; beginreadln(n); n: = n div 10; n: =(n div 100)*10 +n mod 10; writeln(n); n: = (n mod 10)*100+ ((n mod 100) div 10)*10+ n div 100; writeln(n); end.

на один символ отводится 1 байт 30 строк по 70 символов - 2100 символов 5 страниц-это 10500 символов так что ответ 10500 байт