З1:
Program z;
var mas: array [1..10] of integer;
i, x: integer;
begin
for i:=1 to 10 do
readln(mas[i]);
for x:=1 to 10 do
if mas[x] mod 2 = 1 then writeln(mas[x]);
<span>end.
</span>З2:
Program z;
var mas: array [1..10] of integer;
i, x: integer;
begin
for i:=1 to 10 do
readln(mas[i]);
for x:=1 to 10 do
if (mas[x] mod 2 = 0) and (mas[x] > 0) then writeln(mas[x]);
end.
Ответ:
48 бит = 6 байт
160 бит = 20 байт
512 байт = 0.5 КБ
2048 КБ = 2 МБ
1024 КБ = 1 МБ
81920 бит = 10 КБ
Когда бит переводим в байт, мы делим на 8, когда байты в значения выше, делим на 1024, допустим байты в килобайты, мы число байтов делим на 1024. Если же нам надо перевести с большего в значение ниже или еще ниже, мы умножаем на 1024
А если надо перевести в биты, нужно умножить на 8
Const n=10;
var a:array[1..n] of integer;
i,c:integer;
begin
Randomize;
for i:=1 to n do begin
a[i]:=random(51);
write(a[i],' ');
end;
writeln;
c:=a[n];
for i:=n downto 2 do a[i]:=a[i-1];
a[1]:=c;
for i:=1 to n do write(a[i],' ');
writeln;
end.
Пример:
8 2 24 20 27 44 25 41 16 21
21 8 2 24 20 27 44 25 41 16
Напиши 2 цикла вложенных по i j от 1 до размерности
Внутри циклов
B(i,j) = A(j,i)
Надеюсь, циклы писать умеешь и массивы объявлять тоже.
Готовая работа в документе Функция1.xlsx