3)
64×32=2048
2048×512=1.048.576 бит
1.048.576:8=131.072 байт
131.072:1024=128 Кбайт
Ответ:128 Кбайт
5)
79:2=39(остаток 1)
39:2=19(остаток 1)
19:2=9(остаток 1)
9:2=4(остаток 1)
4:2=2(остаток 0)
2:2=1(остаток 0)
Записываешь наоборот и получается 001111
Ответ:001111
4)
бабочки | грибы (7000) + бабочки & грибы (2000)= 9000
9000 - 5000 = 4000
Ответ:4000 страниц
Var
A:array[1..33] of integer;
i:integer;
Begin
For i:= 1 to 33 do
Begin
A[i]:=random(201)-100;
Write(A[i],' ');
End;
End.
1101111 (в 2с/с) = 64+32+8+4+2+1=111 (в 10с/с)
111 (в 2с/с) = 4+2+1 = 7 (в 10 с/с)
Ответ: 7
Матричные, струйные и лазерные.
1) var a:array[1..10] of real;
i:integer;
begin
randomize;
for i:=1 to 10 do begin
a[i]:= random(200) -100;
write(a[i]:5); end;
writeln;
for i:=1 to 10 do
if a[i]>=0 then a[i]:=a[i]/2 else a[i]:=i;
write(a[i]:5);
end.
2) var a:array[1..1000] of real;
s1,s2:real;
i,n:integer;
begin
write('Введите кол-во элементов: '); readln(n);
writeln('Введите элементы массивы: ');
for i:=1 to n do
read(a[i]);
s1:=0; s2:=0;
for i:=1 to n do
if odd(i) then s1:=s1+a[i] else s2:=s2+a[i];
writeln('Сумма элементов с четными номерами: ',s2);
writeln('Сумма элементов с нечетными номерами: ',s1);
end.