Регистрация
хорошист488
15.12.2021 23:44
Информатика
Есть ответ 👍

Створіть просту комп'ютерну гру в яку учасник грає з компютером. Компютер вводнть будь-яке число від 0 до 10 (для цього використовується функція для рандомного введення чисел), а гравешь має відгадати задумане число. Доки гравець не вгадає число програма не буде завершена. ​

103
205
Посмотреть ответы 1

Ответы на вопрос:

hoteleleon3
hoteleleon3
4,6(2 оценок)
Ответ: 32 (1+2+2+2+2+2)*2+2 (1+2+2+2+2)*2+2+2+2 (1+2+2+2)*2+2+2+2+2+2 (1+2+2)*2+2+2+2+2+2+2+2 ((1+2+2)*2+2)*2 ((1+2+2)*2)*2+2+2 (1+2)*2+2+2+2+2+2+2+2+2+2 ((1+2)*2+2+2+2)*2 ((1+2)*2+2+2)*2+2+2 ((1+2)*2+2)*2+2+2+2+2 ((1+2)*2)*2+2+2+2+2+2+2 +2)*2)*2)*2 (1)*2+2+2+2+2+2+2+2+2+2+2+2 ((1)*2+2+2+2+2+2)*2 ((1)*2+2+2+2+2)*2+2+2 ((1)*2+2+2+2)*2+2+2+2+2 ((1)*2+2+2)*2+2+2+2+2+2+2 )*2+2+2)*2)*2 ((1)*2+2)*2+2+2+2+2+2+2+2+2 )*2+2)*2+2+2)*2 )*2+2)*2+2)*2+2+2 )*2+2)*2)*2+2+2+2+2 ((1)*2)*2+2+2+2+2+2+2+2+2+2+2 )*2)*2+2+2+2+2)*2 )*2)*2+2+2+2)*2+2+2 )*2)*2+2+2)*2+2+2+2+2 )*2)*2+2)*2+2+2+2+2+2+2 )*2)*2+2)*2)*2 )*2)*2)*2+2+2+2+2+2+2+2+2 )*2)*2)*2+2+2)*2 )*2)*2)*2+2)*2+2+2 )*2)*2)*2)*2+2+2+2+2 var n : integer; procedure gogo(a : integer; s : string); begin   if a< =24 then       if a=24 then       begin           inc(n);           writeln(s);       end           else           begin               gogo(a+2,s+'+2');               gogo(a*2,'('+s+')*2');           end; end; begin   n: =0;   gogo(1,'1');   writeln('n = ',n); end.

Популярно: Информатика