Изменения
больше квадратов и 197, хороших и разных
until S=W[i];
until S=197;
writeln('Сасай, лалка!');
readln;
end.
== Версия игры «Маятник Профа» ==
Здесь игроки не вправе выбирать модуль квадрата, которым следует походить — выбирается лишь знак. Натуральное число, возводимое во вторую степень, соответствует номеру хода. Исходное число — 100, заходить в «минус» запрещено. Побеждает тот, кто назовёт 197 или больше.
=== Сильнейшая программа ===
var S, n: integer; zn: char;
begin
S:=100;
n:=0;
writeln('Добро пожаловать на "Маятник Профа"!');
writeln('Твоя задача нажимать только + или -.');
writeln('Игра в пределах неотрицательных чисел,');
writeln('поэтому в некоторых случаях у тебя не будет выбора.');
writeln('Для победы нужно получить 197 или более. Исходное число - 100.');
writeln('Компьютер ходит первым.');
repeat
n:=n+1;
if n=5
then if S<=91 then S:=S-25 else S:=S+25
else if (S-n*n<0) or (S+n*n>=197) then S:=S+n*n else S:=S-n*n;
writeln('Ход компьютера: ',S);
if S<197 then
begin
n:=n+1;
if S>=n*n then
begin
write('Твой ход (+/-',n*n,'): ');
readln(zn);
if zn='+' then S:=S+n*n else S:=S-n*n;
end
else S:=S+n*n;
writeln('Твой ход: ',S);
end;
until S>=197;
writeln('Сасай, лалка!');
readln;
