Транслятордың негізгі міндеттері​

шығару бағдарламасын оңтайландырады

файлдарды қалталарға архивтейді

жылдамдықты арттыру үшін бір файлдың бірнеше

бөлек бөліктерін боледи

вместо х ставишь 2,значит у=2-1,у=1,х=у-2,2=4-2,у=х-у,у=2-у,тут у-любое,кроме 2 и более

1) найти убыль как к-во * 12%

2) найти прирост как к-во * 20%

3) к-во = к-во-убыль+прирост

выполнить 8 раз

var

x,a,b: real;

i: integer;

begin

x: =100000;

for i: =1 to 8 do

begin

a: =x*0.12;

b: =x*0.20;

x: =x+b-a;

end;

writeln(x);

end.