20 Мбайт = ? бит
1 Мбайт = 1024 Кбайт
1 Кбайт = 1024 байт
1 байт = 8 бит
Соответственно: 20*1024*1024*8=<span>167772160 бит</span>
365/2=182 (1 в остатке)
182/2=91 (0 в остатке)
91/2=45 (1 в остатке)
45/2=22 (1 в остатке)
22/2=11 (0 в остатке)
11/2=5 (1 в остатке)
5/2=2 (1 в остатке)
2/2=1 (0 в остатке)
1/2=0 (1 в остатке)
Теперь записываем все остатки подряд снизу вверх и получаем запись десятичного числа 365 в двоичной системе счисления 101101101
Var a,n:integer;
begin
writeln('Введите n');
readln(n);
for a:=10 to 99 do
if (a mod n =0)then writeln(a);
<span>end.</span>
Привет дорогой друг!
Мое лето прошло замечательно. Я весело отдыхал на море, загорал, собирал ракушки и гулял с друзьями. В конце лета меня отправили на дачу. Там я помогал бабушке по хозяйству, а также ходил на речку. Полагаю, что это лето было самым лучшим в моей жизни!
А как ты отдохнул?
Нет,он не кодировал!
Там где символы не понятные это разделители задач, 3 из 4
program task;
const n=15;
var a:array[1..n] of integer;
i,s,j,first,max: integer;
begin
óñëîâèå À
begin
a[i]:=0+random(15);
write(a[i]:4);
if(i mod 2=0) then
s:=s + a[i];
end;
çàäà÷à Á
begin
a[i]:=0+random(15);
write(a[i]:4);
end;
writeln();
max:=1;
for i:=1 to n do
if a[i]>a[max] then max:=i;
first:=a[1];
a[1]:=a[max];
a[max]:=first;
writeln('Âåêòîð:');
for i:=1 to n do
çà÷à Â
for i:= 1 to 15 do begin
a[i]:= random(20);
write(a[i],' ');
if a[i] > 0 then
end;
writeln;
writeln;
for i:= 1 to 14 do
for j:= i+1 to 15 do
if a[i] < a[j] then begin
max:= a[i];
a[i]:= a[j];
a[j]:= max;
end;
for i:= 1 to 15 do begin
write(a[i],' ');
end;
end.