Великая игра от великого автора. -- [[Участник:ஞ|ஞ]] ([[Обсуждение участника:ஞ|обсуждение]]) 18:22, 20 марта 2016 (UTC)
== Прога для общего случая ==
<poem>
Program Wisest Prof;
var N, i, k, l, ww, diff, fs, first, h, S, ii, c: integer;
W: array[1..i] of integer;
label Net, No;
BEGIN
writeln('Добро пожаловать в "Просто добавь квадрат"! Прибавлять можно только квадраты натуральных чисел и писать сразу сумму (на первом ходу это просто квадрат). Выиграет тот, кто составит сумму, равную победному числу. Составлять сумму, превышающую это число, запрещено.');
repeat
Net:
write('Назови победное число (НЕ квадрат натурального): ');
readln(N);
if round(sqrt(N))<>sqrt(N) then W[1]:=N else
begin
writeln('Давай по новой, Миша, число хуйня');
goto Net;
end;
S:=0;
i:=1;
for k:=1 to N-1 do
begin
diff:=0;
ww:=N-k;
l:=1
repeat
if round(sqrt(W[l]-ww))=sqrt(W[l]-ww) then diff:=1;
l:=l+1;
until (diff=1) or (l>i)
If diff=0 then
begin
i:=i+1;
W[i]:=ww;
end;
end;
fs:=1
repeat
if round(sqrt(W[fs]))=sqrt(W[fs]) then
begin
writeln('Компьютер ходит первым.');
S:=W[fs];
writeln('Ход компьютера: ', S);
first=1;
fs:=fs+1;
end;
until (first=1) or (fs>i)
repeat
No:
write('Твой ход: ');
readln(h);
if (h>S) and (round(sqrt(abs(h-S)))=sqrt(abs(h-S))) and (h<N) then S:=h else
begin
writeln('Ты неправильно походил, мудила!');
goto No;
end;
ii:=1;
repeat
for c:=1 to round(sqrt((N))) do if S+c*c=W[ii] then
begin
S:=W[ii];
writeln('Ход компьютера: ', S);
end;
ii:=ii+1;
until S=W[ii];
until S=N;
writeln('Сасай, лалка!');
readln;
END.
</poem>