Решить в паскале. кандидату даётся число z и его просят назвать два различных числа x и y, таких, что их сумма равна z. целое число z не превосходящее 1 по модулю.

Объяснение:

Листинг:

uses Crt;

const n=1000000;

var z,x,y: longint;

begin

 ClrScr;

 Randomize;

 Write ( 'z = ' ); ReadLn(z);

   x:=1+random(n);

   y:=z-x;

 Writeln (x, ' +  (',y, ')  = ',x+y);

 ReadLn;

end.

В приложении программа на Паскале и результаты ее работы: