Const N1 = 5;
N2 = 5;
var a: array [0..N1, 0..N2] of integer;
b: array [0..N1*N2] of integer;
i, j, n: integer;
begin
for i:=0 to N1 do {Заполнение массивы случайными числами}
for j := 0 to N2 do
a[i, j] := random(9999);
for i:=0 to N1 do {Основная часть, проверка и заполнение второго массива}
for j := 0 to N2 do
if (a[i, j] mod 2 = 0) then
begin
b[n] := a[i, j];
n := n + 1;
end;
for i:=0 to n do {Вывод полученных чисел}
writeln(b[i]);
<span>end.</span>
# Код на ruby 2.2.3p173
def zadanie(s)
t = "9876543210"
return s == t[0..s.length-1]
end
# # # Примеры применения
p zadanie("9876")
p zadanie("98764")
p zadanie("98 764")
1) 3
2) 1 2 3 4 5
3)
Program name;
var i:integer;
begin
for i:=1 to 6 do writeln('Ваше Имя');
end.
4)
a)
б)
Program name;
var i,sum:integer;
begin
sum:=0;
for i:=20 to 40 do sum:= sum+i;
writeln(sum);
end.
в)
Program name;
var i,sum:integer;
begin
sum:=0;
for i:=40 to 70 do sum:= sum+i;
writeln(sum);
end.
г)
Program name;
var i,sum:integer;
begin
sum:=0;
for i:=30 to 60 do if i mod 2 = 0 then sum:= sum+i;
writeln(sum);
end.
д)
Program name;
var i,sum:integer;
begin
sum:=0;
for i:=36 to 66 do if i mod 2 = 1 then sum:= sum+i;
writeln(sum);
end.
<span>Для начала вычислим скорость данных по каналу: 3072Кбайт/5 мин=614,4 Кбайт/мин. Следовательно, файл размером 6144 Кбайт можно передать за 6144/614,4=10 мин</span>
9) I=650 бит
K=130 символов
i=I/K
i=650/130=5 бит
N=2^i
N=2^5=32 - мощность алфавита
Ответ:32
11)I=375 байтов=3000 бит
K=500 символов
i=I/K
i=3000/500=6 бит
N=2^i
N=2^6=64 - мощность алфавита
Ответ:6 бит и 64 символа
12)N=64
N=2^i
i=6 бит
K=3*40*60=7200 символов
I=K*i
I=7200*6=43 200 бит=5400 байт
Ответ:5400 байт
13)I=9000 байт=72 000 бит
K=6*40*60=14 400 символов
i=I/K
i=72 000/14 400=5 бит
N=2^i
N=2^5=32 - мощность алфавита
Ответ:5 бит и 32 символа
14)i=7 бит (берем 7, так как мощность алфавита у нас равняется 100, и если мы возьмем 6, то этого уже будет недостаточно)
K=8192
I=K*i
I=8192*7=57344 Бита =7168 Байта=7 Кбайта
Ответ: 7 Кбайт
15)N=32
N=2^i
i=5 бит
K(1)=256
I(1)=256*5=1280 бит=160 байт - кол-во информации на 1 носителе
K(2)=256*512=131 072
I(2)=131 072*5=655 360 бит=82 920 байт=80 Кбайт - кол-во информации во всем своде законов
Ответ:160 байт и 80 Кбайт