Var n: byte; begin write (1 - den 7-gedeyingisandiengiz); read(n); - case n of 1: Writeln( Duysenbi - id1740471720220314 от arinakirkot 14.03.2022 12:26

Question

Информатика: Var n: byte; begin write (1 - den 7-gedeyingisandiengiz); read(n); - case n of 1: Writeln( Duysenbi ); 2: Writeln( Seysenbi ); 3: Writeln( Saisenbi ); 4: Writeln( Beysen bi ); 5: Writeln( Juma ); 6: Writeln( Sen bi?); 7: Writeln(Jekseni ); else writeln( Durisemes ); end.​

arinakirkot · Accepted Answer

1024.
высота каждого дерева может принимать два значения. (+/- 1 метр от высоты предыдущего, т.е известие, что последующие дерево выше предыдущего на 1 метр несет 1 бит информации) соответственнр основание системы счисления буде равно двум. Количество разрядов (бит) в комбинации 10 (т.к. 11 дерево всегда неизменно по высоте 100м).
Применяем формулу Хартли:
N=2^k. (т.к. вероятность того, что последующие дерево будет на метр выше такая же, что оно будет на метр ниже).
2^10 = 1024.
Всего возможно 1024 комбинаций таких садов.

Var n: byte; begin
write (1 - den 7-gedeyingisandiengiz);
read(n); -
case n of
1: Writeln('Duysenbi');
2: Writeln("Seysenbi');
3: Writeln("Saisenbi');
4: Writeln('Beysen bi');
5: Writeln('Juma');
6: Writeln('Sen bi?);
7: Writeln(Jekseni');
else writeln("Durisemes');
end.

MOGZ ответил

Var n: byte; beginwrite (1 - den 7-gedeyingisandiengiz);read(n); -case n of1: Writeln('Duysenbi');2: Writeln("Seysenbi');3: Writeln("Saisenbi');4: Writeln('Beysen bi');5: Writeln('Juma');6: Writeln('Sen bi?);7: Writeln(Jekseni');else writeln("Durisemes');end.​

MOGZ ответил

Var n: byte; begin
write (1 - den 7-gedeyingisandiengiz);
read(n); -
case n of
1: Writeln('Duysenbi');
2: Writeln("Seysenbi');
3: Writeln("Saisenbi');
4: Writeln('Beysen bi');
5: Writeln('Juma');
6: Writeln('Sen bi?);
7: Writeln(Jekseni');
else writeln("Durisemes');
end.