Program z1;
var a,b:integer;
begin
writeln('Введите 2 числа:');
readln(a,b);
if a<b then
write('Меньшее число:',a);
if b<a then
write('Меньшее число:',b);
end.
function k15(a:integer):boolean;
begin
k15:=a mod 15 = 0;
end;
var i: integer;
begin
for i:=200 to 300 do
if k15(i) then write(i,' ');
end.
Результат:
210 225 240 255 270 285 300
0,7*1024= 716.8 Гб, примерно 717 Гб.
Ставь спасибо.
Количество информации I, которое несет сообщение о реализация события A равно -ln(p), где p - вероятность события A.
Xкр = 27 - количество семян круглой редиски
Xвыт - количество семян плоской редиски
Pвыт - вероятность достать семечко вытянутой редиски равно Xвыт/(Xкр+Xвыт)
I - количество информации, которое несет сообщение о том, что доставли одно семечко вытянутой редиски
Исходя из условий задачи, можем составить уравнение:
I = -ln(Xвыт/(Xкр+Xвыт)) -> 2^-2 = Xвыт/(Xкр+Xвыт), откуда получаем Xвыт = 9
Общее количесво семян равно (Xвыт + Xкр) = 36