Скорость передачи данных через adsl соединение равна 204800 бит/с. передача файла через данное соединение заняла 16 секунд. определите размер файла в кбайт.
Сменой знака считается переход от отрицательного к нулю, от нуля к положительному, от отрицательного к положительному и наоборот. По крайней мере в условии не сказано обратное.
program progr1;
var count,i,n,x,znak,znak_old:integer; begin write('n-> '); readln(n); count:=0; for i:=1 to n do begin write(i,'-> '); readln(x); if x < 0 then znak:=-1; if x>0 then znak:=1; if x=0 then znak:=0; if i < > 1 then if znak < > znak_old then count:=count+1; znak_old:=znak; end; write('count=',count); readln; end.
Program Adelia17; uses crt; const n=30; var matr:array [1..n] of integer; i,pos,neg,zero:integer; begin writeln('*** Alphaeus is thinking... ***'); writeln('*** OK ***'); writeln(); writeln(); writeln('Программа находит количество положительных, отрицательных и нулевых элементов массива'); pos:=0; neg:=0; zero:=0; randomize; writeln('Массив: '); for i:=1 to n do begin matr[i]:=random(100)-50; write(matr[i]:4,' '); if matr[i]>0 then pos:=pos+1; if matr[i]<0 then neg:=neg+1; if matr[i]=0 then zero:=zero+1; end; writeln(); writeln('Количество положительных элементов равно ',pos); writeln('Количество отрицательных элементов равно ',neg); writeln('Количество нулевых элементов равно ',zero); end.
400
Объяснение:
204 800 бит = 25 600 байс
Скорость = 25 600 байт\с
25 600*16= 409600 байт
409600 байт = 400 Кбайт