Нужен верный ответ безотлагательно.

Нужен верный ответ безотлагательно.

Задать свой вопрос
1 ответ

Ответ

41

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

program raf105;

var x,y,z:integer;

begin

readln(x);

y:=x+x;

z:=x+y;

if zgt;=50

 then

 begin

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

   if ygt;=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 ygt;=2

     then

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

     else

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

 end;

x:=z-x;

writeln(x);

end.

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт