Так как в корзине 4 груши и 12 яблок, то вероятность достать грушу составляет 4/16 = 1/4 (для яблока 12/16 = 3/4). если существует n равновероятных событий, то вероятность каждого отдельного события равна p=1/n. применяя формулу: 2 в степени i = n = 1/p получаем i = 2 бита.
Ответ дал: Гость
пломп лпмб_лпмплпмб й об лпмбц_лпмплпмб
(около кола _колокола и на колах _колокола)
Ответ дал: Гость
1)
var
a: array [1..5,1..10] of integer;
i,j,p: integer;
begin
for i: =1 to 5 do
begin
for j: =1 to 10 do
begin
a[i,j]: =random(50)+1;
write(a[i,j]: 3);
end;
writeln;
end;
writeln('меняем 1 и последнюю строки');
for j: =1 to 10 do
begin
p: =a[1,j];
a[1,j]: =a[5,j];
a[5,j]: =p;
end;
for i: =1 to 5 do
begin
for j: =1 to 10 do
write(a[i,j]: 3);
writeln;
end;
end.
2)
var a: array [1..5, 1..10] of integer; i, j: integer; p: real;
begin for i : = 1 to 5 do begin for j : = 1 to 10 do begin a[i, j] : = random(50) + 1; write(a[i, j]: 3); end; writeln; end; writeln('произведения элементов строк'); for i : = 1 to 5 do begin p : = 1; for j : = 1 to 10 do p : = p * a[i, j]; writeln(p: 25: 0); end; end.
Ответ дал: Гость
program msd; uses crt; var a,l,proiz,b,i: longint; beginclrscr; readln(a); proiz: =1; while true do beginl: =a mod 10; a: = a div 10; if odd(l) = true thenproiz: =proiz*lelseb: =b+1; i: =i+1; if a = 0 then break; end; if b = i then writeln('0')elsewriteln(proiz); if (proiz> 99) and (proiz< 1000) then writeln('da')else writeln('net'); readkey; end.
Популярные вопросы