Var S,K,A:integer;
Begin
S:=0;
K:=0;
A:=100;
Repeat
S:=S+A;
K:=K+1;
A:=A+10;
Until A>500;
WriteLn('SR = ',K*S);
End.
10мб=83886080 бит
Время=83886080 бит / 2500000 бит,сек=33,6 секунды
Готово.......................
Сидел, искал информацию в интернете по поводу неприкладных программ и по сути ничего толкового не нашел. Но судя по тому, что прикладные программы - это почти все программы которыми мы пользуемся (всевозможные редакторы, мультимедиа приложения, разные системы и т.п) и ставятся на компьютер они после, отдельно.
Могу сделать вывод, что неприкладными программами можно считать системный софт <span>(типа микропрограмм, или firmware), и по сути они являются частью оборудования.</span>
Она работает в режиме онлайн:D