Var X,Y,Xm,Ym:real;
Procedure ABC();
Begin
Repeat
Write('x = ');ReadLn(x);
Write('y = ');ReadLn(y);
if (x*x+y*y)>(Xm*Xm+Ym*Ym) then
Begin
Xm:=x;
Ym:=y
End
Until (X = 0)and(Y = 0)
End;
Begin
Xm:=0;
Ym:=0;
ABC;
WriteLn('(',Xm,',',Ym,')')
End.
Разработка искуственного интелекта зашла в тупик, в основном идут попытки имитации работы мозга на основе неиронных сетей
while n <= m do n := 1;
while n > m do n := 0;
write(n);
Если n <= m, то n = 1,
если n > m, то n = 0 (любое число)
При этом условные операторы использованы не будут.
Есть вариант попроще: write(ord(n <= m))
Если n <= m, то будет выведено 1 (порядковый номер true), иначе будет выведено 0 (порядковый номер false)