Домой
Случайная
Список наблюдения
Настройки
Представиться системе
Описание ALL
Отказ от ответственности
Открыть главное меню
Изменения
Обсуждение:197 (игра)
2 байта убрано
,
14:50, 21 октября 2023
/* Прога для варианта игры с добавлением 1 или 2 квадратов */
repeat
for x:=1 to trunc(sqrt(N)) do
for y:=0 to x do if S+x*x+y*y=
W[ii] then if S<>
W[ii] then if hod=0
then
begin
writeln( 'Ход компьютера: ', S, '+', x*x, '+', y*y, '=', W[ii]);
S:=W[ii];
hod:=1;
end;
ii:=ii+1;
← Предыдущая правка
Следующая правка →
Гроссмейстер Проф
395
правок