Var A,i,k:integer;
Begin
Write('Введите 10 целых чисел: ');
k:=0;
For i:= 1 to 10 do
Begin
Read(A);
if A>0 then k:=k+1
End;
Write('Количество положительных: ',k);
End.
Program Qwerty123777;
uses crt;
var
x,y:real;
begin
writeln('*** Alphaeus is thinking... ***');
writeln('*** OK ***');
writeln();
writeln('Программа находит значение функции y=(2x-4)/(3xx+11)');
write('Введите значение х '); readln (x);
y:=(2*x-4)/(3*x*x+11);
writeln('*** Вычисляю... ***');
writeln('y=', y:8:2); ;
end.
В девятиричной системе счисления.
Выпадания номеров в лотерее - события равновероятные.
Значит один номер в "4 из 32" несёт в себе 5 бит информации, т.к. 2^5=32, а один номер в "5 из 64" - 6 бит, т.к. 2^6 = 64
В лотерее 4 из 32 четыре номера, каждый занимает 5 бит, значит сообщение содержит 4*5 = 20 бит.
В лотерее 5 из 64 пять номеров, каждый занимает 6 бит, значит объем равен 5*6 = 30 бит.
Сообщение о результате лотереи "5 из 64" больше сообщения "4 из 32" в полтора раза.