Изменения
Для пущего интереса можно усложнить игру, запретив, например, называть два одинаковых квадрата подряд. В любом случае играть в «197» — одно удовольствие для истинных интеллектуалов.
== Игра с компьютером ==
Мудрейшему Профу удалось написать сильнейшую компьютерную программу для этой игры. Для игры достаточно установить Паскаль и вбить следующий код:
var h, S, i, c: integer; W: array[1..37] of integer;
label No;
begin
writeln('Добро пожаловать в "197"! Первым ходом пишешь квадрат натурального числа, потом сразу сумму.');
S:=0;
W[1]:=5; W[2]:=10; W[3]:=15; W[4]:=17; W[5]:=20; W[6]:=27; W[7]:=47; W[8]:=50;
W[9]:=55; W[10]:=60; W[11]:=65; W[12]:=67; W[13]:=70; W[14]:=73; W[15]:=78;
W[16]:=88; W[17]:=102; W[18]:=112; W[19]:=125; W[20]:=130; W[21]:=132;
W[22]:=135; W[23]:=140; W[24]:=145; W[25]:=153; W[26]:=158; W[27]:=163;
W[28]:=175; W[29]:=177; W[30]:=180; W[31]:=182; W[32]:=185; W[33]:=187;
W[34]:=190; W[35]:=192; W[36]:=195; W[37]:=197;
repeat
No:
write('Твой ход: ');
readln(h);
if (round(sqrt(h-S))=sqrt(h-S)) and (h<197) then S:=h else
begin
writeln('Ты неправильно походил, мудила!');
goto No;
end;
i:=38;
repeat
i:=i-1;
for c:=1 to 14 do if S+c*c=W[i] then
begin
S:=W[i];
writeln('Ход компьютера: ', S);
end;
until S=W[i];
until S=197;
writeln('Сасай, лалка!');
readln;
end.
[[Категория:Игры]]
