a$ = "confidencialno"
a1$ = LEFT$(a$,3)
a2$ = RIGHT$(a$,2)+"s"
a3$ = MID$(a$,4,1)+MID$(a$,7,2)
Var a:array[1..10000] of integer;
n,i,j,k,t:integer;
begin
readln(n);
for i:=1 to n do
read(a[i]);
j:=n;
repeat
k:=j;
j:=0;
for i:=1 to k-1 do
if a[i+1]j:=i;
t:=a[i];
a[i]:=a[i+1];
a[i+1]:=t;
for t:=1 to n do
write(a[t],' ');
writeln;
end;
until j=0;
if k=n then
writeln(0); //Если перестановок не было, программа выводит только число 0. Если эта команда не нужна, можешь ее убрать
end.
1)Проверь контакты видеокарты.
2)Проверь биос
3)Чекни через специальную программу комп на вируса
Определяем время передачи первого файла:
V=240 кбайт=240*1024*8 бит
v=192 бит/с
t=V/v=240*1024*8/192=10*1024=10240 секунд
Для второго файла:
v=640 бит/с
t=1024*10 секунд
V -?
V=v*t=640*1024*10 бит=640*1024*10/(8*1024) кбайт=800 кбайт
Ответ: 800 кбайт