Для игры используется барабан со стрелкой. барабан разделен на n секторов (n> 6), каждый из которых обозначен уникальным натуральным числом от 1 до n, и в результате одного хода стрелка с равной вероятностью останавливается напротив одного из секторов. игрок совершает несколько ходов. значения, на которые указывала стрелка, суммируются.


известно, что сообщение «игрок сделал 4 хода и набрал ровно 9 » несет в себе ровно на 6 бит больше информации, чем сообщение «игрок сделал 3 хода и набрал ровно 9 ». найдите n, при котором это возможно. в ответе укажите целое число.

если n это количество чисел, начинаем с 3

var

i,n,p: integer

begin

readln(n);

i: =3;

p: =1;

while i< =3*n do

begin

p: =p*i;

i: =i+3;

end;

writeln(p);

end.

если n это верхняя граница чисел

var

i,n,p: integer

begin

readln(n);

for i: =3 to n

if i mod 3 = 0 then

p: =p*i;

writeln(p);

end.

1)

var a,b,c,d: real;

begin

  read(a,b);

  c: =(a+b)/2;

  d: =2*a*b;

  if a> b then begin

    a: =d;

    b: =c;

  end;

  if a< b then begin

  a: =c;

  b: =d;

  end;

  writeln(a,' ',b);

end.

2)

var a,b: integer;

begin

  read(a,b);

  if (a< 1) or (a> 31) then writeln(' день введен неправильно');

  if (b< 1) or (b> 12) then writeln(' месяц введен неправильно');

end.

3)

var a,b,c: real;

begin

  read(a,b,c);

  if (a> b)and(a> c)then writeln(a);  

    if (b> a)and(b> c)then writeln(b);

  if (c> b)and(c> a)then writeln(c);

end.

какой графический редактор? paint? кажется что подразумевается не 7 виндоуз, потому поэксперементировать трудно

не знаю какое 3 заполнение там подразумевается - у меня пастель (сама не знаю что это)

при удерживании шифта рисуются линии только с шагом 45 градусов, те только горизонтальные и вертикальные и диагональные

но по интуиции мне почемуто кажется что должно было получится солнышко

если положить, что вода замерзает при нуле градусов, то:

program ice;

var temp : integer;

begin

writeln('введите температуру');

read(temp);

if temp > 0 then write ('вода не замерзнет')

else write('вода замерзнет');

end.