Question

Нужен правильный ответ срочно.

Answer 1

Ответ

41

Код программы на языке PascalABC

program raf105;

var x,y,z:integer;

begin

readln(x);

y:=x+x;

z:=x+y;

if z>=50

 then

 begin

   y:=(z*x*y) mod y;

   if y>=10

     then

     x:=round((z*x*y)/y)

     else

     x:=trunc((2*x-y)/x);

 end

 else

 begin

   y:=(z+x+y) div y;

   if y>=2

     then

     x:=trunc((z+x+y)/x)

     else

     x:=round((z*x*y)/y);

 end;

x:=z-x;

writeln(x);

end.