Var
a,b: string;
i: integer;
ka,kb: boolean;
begin
readln(a);
readln(b);
for i:=1 to 10 do
if a[i]='s' then ka:= true;
if ka then writeln('s in A');
for i:=1 to 20 do
if b[i]='q' then kb:= true;
if kb then writeln('q in B')
<span>end.</span>
%SystemRoot%/system32/rundll32 user32, SwapMouseButton >default
Формула Шенона: 2^I=N, где N - объём информации, I - количество бит.
I = [log_2 (N)] - округление в большую сторону
1 байте = 8 бит.
Задача 1
Трижды запускается либо красная, либо зелёная ракета.
N = 2^3 = 8
Ответ: 8
Задача 2
I = [log_2 (800)] = [9.6438] = 10 бит на ученика
Объём 320 учащихся = 320 * 10 = 3200 бит = 400 байт
Ответ: 4
Задача 3
I = [log_2 (10+12+12)] = [5.0875] = 6 бит на символ
6 * 11 = 66 бит = 8.25 байт ~= 9 байт
9 * 60 = 540 байт
Ответ: 3
Задача 4
I = [log_2 (5*5)] = [4.6439] = 5 бит на клетку
15 ходов + начальная позиция = 16 клеток
16 * 5 бит = 80 бит = 10 байт
Ответ: 1
А) (п ^ в ^ с)-><span>ж
б)(т(отр.) v д(отр.)^ л)-></span><span>л(отр)
-> если что, это стрелка
</span>
Var ar:array[1..12] of integer;
i,min:integer;
begin;
min:=2147483647;
for i:=1 to 12 do
begin;
readln(ar[i]);
if (ar[i]>0) and (ar[i]<min) then
min:=ar[i];
end;
writeln;
writeln('Array:');
for i:=1 to 12 do
write(ar[i]:4);
writeln;
write('Min:',min);
<span>end.</span>