Program asd;
USES crt;
Const n=100;
Var A:array[1..n] of integer;
i,kp,ko:integer;
BEGIN
Writeln('Массив: ');
For i:=1 to n do
begin
A[i]:=-20+Random(40);
Write(A[i]:4);
end;
Writeln;
kp:=0;
ko:=0;
For i:=1 to n do
begin
If A[i]>0 then kp:=kp+1;
If A[i]<0 then ko:=ko+1;
end;
Writeln('Кол-во положительных элементов: ' ,kp);
Writeln('Кол-во отрицательных элементов: ' ,ko);
END.
1) По формуле Шеннона 2^i=n найдём i=5 т.е. сообщение о каждом ученике кодируется пятью битами.
Ответ: 5
2) По той же формуле. i=4, значит 2^4=16.
Ответ: 16
3) n=80 - о десяти файлах. Значит, информация об одном - 8бит. 2^8=256 файлов
Ответ: 256
4)2^i=128
i=7
140/7=20
Ответ: 20
5) Всего 4*16=64 возможных исходов. 2^i=64 i=6
Ответ:6
Var n,a,max,i:integer;
begin
write('n = ');
readln(n);
max:=-30000;
writeln('Вводите числа:');
for i:=1 to n do
begin
readln(a);
if (abs(a) mod 10=3)and(a<0)and(a>max) then max:=a;
end;
if max=-30000 then writeln('Нет чисел, оканчивающихся на 3')
else writeln('max = ',max);
end.
Пример:
<span>n = 5
Вводите числа:
5
618
-703
103
-243
-815max = -243</span>
Program n1;
Uses CRT;
Var a,b,s,i: integer;
begin
writeln('Vvedite A i B');
readln(a,b);
If a>b then
for i:=b to a do
begin
writeln(i);
s:=s+i;
end
else
if b>a then
for i:=a to b do
begin
writeln(i);
s:=s+i;
end
else writeln('ravny');
writeln('Summa = ',s);
readln
end.
