var i,a,b,c,k: integer;
begin
for i:=1 to 5 do
begin
a:=random(8)+1;
b:=random(8)+1;
write (a,' * ',b,' = ');
readln (c);
if c = a*b then k:=k+1
end;
writeln ('Вы правильно ответили на ',k,' примера')
end.
Ну? Понятно, 16 рядов, 32 места в каждом... продали ОДИН БИЛЕТ В ВОСЬМОМ РЯДУ, номер 8 ... и что ??? Какой вопрос задачи?;)
<span>var a,s,mn:real;
n,i:integer;
begin
clrscr;
repeat
write('Сколько чисел ввести n>0 n=');
readln(n);
until n>0;
writeln('Введите ',n,' чисел:');
s:=0;
for i:=1 to n do
begin
write('a=');
readln(a);
if i=1 then mn:=a
else if odd(i)and(a<mn) then mn:=a;
if(i mod 2=0)and(a>0) then s:=s+a;
end;
writeln('Сумма положительных с четными индексами=',s:0:2);
writeln('Минимальный с нечетным индексом=',mn:0:2);
readln
end.</span>
Дано:
375 байт * 8 = 3000 бит - объем этого сообщения
Р=500 символов
Решение:
3000÷500 = 6 бит (информ. вес каждого символа в этом сообщении).
Находим мощность алфавита по формуле <em>N = 2^i</em>
N = 2^6 = 64 (мощность этого алфавита)
Ответ: Вес- 6 бит, Мощность - 64 символа.