2(5) = 2(10)
1321(4) = 121(10)
11C(16) = 284(10)
Подставляем все коэффициенты в уравнении в десятичной системе счисления.
2x = 284 - 242 = 42
x = 21
Переводим в семеричную с. с.
21(10) = 30(7)
Ответ: 30(7)
Const n=10;
<span>var i,s,k:integer;
a:array [1..n] of integer;
begin
for i:=1 to n do begin
// 1) //случайные числа
</span>a[i]:=random(20); //используя функцию randomize генерируем случайные числа
<span> write(a[i],' ');
//2)натур. ряд чисел
</span>a[i]:=i; //присваиваем элементу массива его номер
<span><span> write(a[i],' ');
</span> //3)заполнить с клав.
</span>write('введите ',i,' число массива ');
<span> readln(a[i]); </span><span>
//4) сред. ариф. кратн 2
</span>a[i]:=random(20); //создадим рандомный массив<span>
write(a[i],' '); // выведем на экран
if a[i] mod 2 = 0 then begin //если кратно 2, то....
</span>s:=s+a[i]; //считаем сумму всех чисел кратных 2
<span><span> k:=k+1; // считаем кол-во таких чисел
end;
</span> end;
//2 стоки ниже относятся только к 4 пункту
</span>writeln;
<span> writeln('среднее арифметическое элементов, кратных 2 = ',s/k);
//ниже относится к ручному вводу
writeln;
for i:=1 to n do write(a[i],' ');
end.
как-то так) старался некоторые моменты пояснять комментариями</span>
<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 книги...
var
i,max:integer;
ar:array[0..200] of integer;
begin
randomize;
max:=0;
for i:=1 to 200 do <em>begin</em>
ar[i]:=random(200+1)-100;
if (ar[i] > max) then max:=ar[i];
if (i mod 20=0) then writeln(ar[i]) else write(ar[i],' ');
<em>end;</em>
<em>writeln();</em>
for i:=1 to 200 do <em>begin</em>
if (ar[i] < 0) then ar[i]:=max;
if (i mod 20=0) then writeln(ar[i]) else write(ar[i],' ');
<em>end;</em>
<span>
end.</span>
4 ч. = 33 км
8 ч. = 33 км * 2 = 66 км