<span>1. </span>В гигабайте 1024 мегабайт. 1) 120*1024 = 122880 - это мегабайт в 120 гигабайтах
2) 122880/512= 240.
<span>Ответ: в 240 раз.
2. 0,5 Кбайт - 512 байт
т.к. 1 байт - 8 бит, следовательно 512 байт - это 4096 бит ( обьем первого сообщения)
1) 4096 - 500=3596 бит =</span><span>449,5 байт
3. 1) </span>8 Гб * 1024 = 8192 Мб
2) 8192 / 150 = 54,61333
Ответ: 54
4. 1 символ = 1 байт.Строка : 40 символов * 1 байт = 40 байт.Страница : 50 строк *40 байт = 2000 байт.Книга : 200 страниц * 2000 байт = 400 000 байт / 1024 = 390,625 Кб<span>На 1 дискету вместится:
1) 1440 Кб : 390,625 Кб = 3,6864 = 3,6 книг</span>
<span>На 1</span><span> </span><span>CD</span><span>-</span><span>Disk</span><span>. вместится:</span>
800 Мб : 390,625 Кб = 800 Мб * 1024 = 819 200 Кб : 390,625 Кб = 2097, 152 книги...
program ArrayPrintBack;
var
a: array[1..8] of integer;
i: integer;
begin
Randomize;
for i := 1 to 8 do
begin
a[i] := 5 + Random(49);
Write(a[i]:3)
end;
Writeln;
for i := 8 downto 1 do
Write(a[i]:3)
end.
Uses crt;
var a,b:real;
num:integer;
begin
writeln('Введите два числа');
readln(a,b);
writeln('Выберите операцию: 1.сложение, 2.умножение');
readln(num);
clrscr;
case num of
1:writeln(a,'+',b,'=',a+b);
2:writeln(a,'*',b,'=',a*b);
end;
end.
Диапазон -8..14 содержит в себе нуль, т.е. самый простой вариант ответа: Произведение этих чисел равно нулю.
Но если не рассматривать нуль в качестве множителя, то ответ: 3515028701184000
Var p : BigInteger;
i : Integer;
Begin
p:=1;
For i:=-8 to 14 do If i<>0 then p:=p*i;
Writeln(p);
end.