Определите значение переменной s после выполнения фрагмента алгоритма

9 кбатй = 73728 бит

73728/1536=48сек

1024*48=49152бит=6164 байт ( 1 байт = 8 бит)

program zadacha1; var ves, rost, optves: integer; begin  write('введите массу тела');   read(ves);   write('введите рост в см');   read(rost);   optves: =rost-100;   if ves> optves then write('вам необходимо похудеть на', abs(optves-ves) );   if ves< optves then write('вам необходимо поправиться на', abs(optves-ves) );   if ves=optves then write ('ваш вес оптимальный')end.

y=2,5*x

x=x*x  |x^2

y=y*x  |2.5*x^3

y=y+1 |1+2.5*x^3

y=y-x  |1+2.5*x^3 - x^2

x=x*x  |x^4

y=y+x  |1+2.5*x^3 - x^2=x^4

y=y*y

uses crt; var i,z: integer; beginclrscr; i: =0; while i< 100 dobeginif i mod 11=0 then z: =z+i; i: =i+1; end; writeln('summa= ',z); readln(); end.