Question

Решить задачу в паскале. Кандидату даётся число Z и его просят назвать два различных числа X и Y, таких, что их сумма равна Z. Целое число Z не превосходящее 1000000 по модулю.

Answer 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.

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