Подскажите прям .на одном листе умещается 32 кб печатной информайии ,скорость печати принтера -64 символов в секунду.для одной газеты необходимо два листа .укажите время в минутах для печати одной газеты .
1 Кб (если Кб это все таки килобайты а не килобиты) =1024 байта
значит 3 кб это 32 768 байт.
1 байт это 8 бит, значит
в 32 килобайтах содержится 32 768*8=262 144 бит.
Один печатный символ это 1 бит.
В секунду принтер распечатае 64 бита, значит 262 144 бита (или 32 кб или 1 лист) он распечатает за 262 144/64= 4 096 секунд, значит 2 листа он распечатает за 8 192 секунды
В минутах это будет 8 192/60= 136 минут и 32 секунды.
var a:array [1..20] of integer; i:integer; begin randomize; for i:=1 to 20 do begin a[i]:=random(19-(-10)+1)+-10; write (a[i],' '); end; end.
Задача №2
var a:array [1..20] of integer; i:integer; begin writeln('Введите числа в интервале [-20;29]'); for i:=1 to 10 do read(a[i]); for i:=1 to 10 do if (a[i]>-29) and (a[i]<20) then write(a[i],' '); end.
Задача №3
var a:array [1..20] of integer; i,sum:integer; begin randomize; sum:=0; for i:=1 to 20 do begin a[i]:=random(19-(-10)+1)+-10; write (a[i],' '); if a[i]>0 then sum:=sum+1; end; writeln('Количество положительных элементов массива = ', sum); end.
Задача №4
var a:array [1..20] of integer; i:integer; begin randomize; for i:=1 to 20 do begin a[i]:=random(19-(-10)+1)+-10; if a[i]<0 then a[i]:=0; write (a[i],' '); end; end.
Задача №5
var a:array [1..20] of integer; i,sum:integer; begin randomize; sum:=0; for i:=1 to 20 do begin a[i]:=random(19-(-10)+1)+-10; write (a[i],' '); if a[i]>0 then sum:=sum+a[i]; end; writeln('Сумма положительных элементов массива = ', sum); end.
// PascalABC.NET 3.0, сборка 1128 begin var a:=ArrRandom(20,-10,19); a.Println(','); // 1 var b:=ReadArrInteger('Введите 10 целых чисел',10); // 2 Writeln('Количество положительных элементов ', a.Where(x->x>0).Count); // 3 for var i:=0 to 19 do if a[i]<0 then a[i]:=0; Writeln('Массив А после замены отрицательных'); a.Println(','); //4 Writeln('Сумма положительных элементов ', a.Where(x->x>0).Sum) // 5 end.
Тестовое решение: 14,8,9,-5,6,3,3,-10,-8,18,7,13,2,17,-1,0,4,-3,8,-8 Введите 10 целых чисел -5 0 13 -7 -14 11 8 19 -3 -1 Количество положительных элементов 13 Массив А после замены отрицательных 14,8,9,0,6,3,3,0,0,18,7,13,2,17,0,0,4,0,8,0 Сумма положительных элементов 112
1 Кб (если Кб это все таки килобайты а не килобиты) =1024 байта
значит 3 кб это 32 768 байт.
1 байт это 8 бит, значит
в 32 килобайтах содержится 32 768*8=262 144 бит.
Один печатный символ это 1 бит.
В секунду принтер распечатае 64 бита, значит 262 144 бита (или 32 кб или 1 лист) он распечатает за 262 144/64= 4 096 секунд, значит 2 листа он распечатает за 8 192 секунды
В минутах это будет 8 192/60= 136 минут и 32 секунды.