Значения двух массивов a 1-200 и b 1-200 с следующего фрагмента программы на паскале for n: =1 to 300 do a(n): = n+100; for n: =1 to 200 do b(n): = 2*a(n)-500.сколько элементов массива b будут иметь положительные значения?
program abc; var sum,i,k,n:longint; a,b:array[1..200]of longint; begin for n:=1 to 200 do A[n]:= n+100; for n:=1 to 200 do begin B[n]:= 2*A[n]-500; if b[n]>0 then k:=k+1; end; write(k); end.
Так, как размер одного символа составляет 1 бит, то размер 2000 символов равен 2000 бит. Далее: 1)Разберёмся с размерностью жёсткого диска: Если 1 байт=8 бит, то 1 килобайт=1024 байта=1024*8 бит=8192 бит, а 1 мегабайт=1024 килобайта=1024*8192 бит=8388608 бит. Разобрались. Если размер реферата 2000 бит, то можно узнать сколько рефератов вместит этот жёсткий диск: рефератов. 2)Поступаем аналогичным методом: 1 килобайт=8192 бит. Тогда съёмный диск вместит =4 реферата.
Далее нужно определить время печати при данной скорости 3200 бит/сек. Так как размер реферата равен 2000 бит, то он распечатается за секунды.
рефератов.
=4 реферата.
секунды.
Программа с которой я это вычислил [Pascal].
program abc;
var sum,i,k,n:longint;
a,b:array[1..200]of longint;
begin
for n:=1 to 200 do A[n]:= n+100;
for n:=1 to 200 do begin B[n]:= 2*A[n]-500;
if b[n]>0 then k:=k+1; end;
write(k);
end.