Изменения
Отмена правки 122349, сделанной участником [[Special:Contribs/Гроссмейстер Проф|Гроссмейстер Проф]] ([[User talk:Гроссмейстер Проф|обс.]])
</poem>
== Прога для варианта игры с добавлением 1 или 2 квадратов с лимитом сверху ==
<poem>
Program WisestProf;
var lim, N, x, y, i, k, l, ww, diff, fs, first, h, S, ii, hod: integer;
W: array[1..10000] of integer;
label Ni, Net, No, Nicht;
BEGIN
writeln('Добро пожаловать в "Просто добавь 1 или 2 квадрата"! Вводить можно только квадраты натуральных чисел. Выиграет тот, кто составит сумму, равную победному числу. Составлять сумму, превышающую это число, запрещено.');
Ni:
write('Выбери максимальный допустимый квадрат натурального числа: ');
readln(lim);
if (round(sqrt(lim))<>sqrt(lim)) or (lim=0) then
begin
writeln('Это не квадрат натурального, придурок!');
goto Ni;
end;
Net:
write('Назови победное число (НЕ квадрат натурального и НЕ сумму квадратовкоторого нельзя достичь за 1 ход): ');
readln(N);
for x:=1 to truncround(sqrt(Nlim)) do for y:=0 to x do if (x*x+y*y=N ) or (N<lim) then
begin
writeln('Давай по новой, Миша, число хуйня');
l:=1;
repeat
for x:=1 to truncround(sqrt(Nlim)) do
for y:=0 to x do if x*x+y*y=W[l]-ww then diff:=1;
l:=l+1;
repeat
for x:=1 to truncround(sqrt(Nlim)) do
for y:=0 to x do if x*x+y*y=W[fs] then if first=0 then
begin
write('Твой ход, первый квадрат: ');
readln(h);
if (h>0) and (h<=lim) and (round(sqrt(h))=sqrt(h)) and (S+h<N) then S:=S+h else
begin
writeln('Ты неправильно походил, мудила!');
write ('Твой ход, второй квадрат или 0: ');
readln(h);
if (h<=lim) and (round(sqrt(h))=sqrt(h)) and (S+h<N) then S:=S+h else
begin
writeln('Ты неправильно походил, мудила!');
repeat
for x:=1 to truncround(sqrt(Nlim)) do for y:=0 to x do if S+x*x+y*y=W[ii] then if S<>W[ii] then if hod=0then
begin
writeln( 'Ход компьютера: ', S, '+', x*x, '+', y*y, '=', W[ii]);
S:=W[ii];
hod:=1;
end;
ii:=ii+1;
